Commit Diff
--- lib/IRCNOW/IO.pm +++ lib/IRCNOW/IO.pm @@ -1,4 +1,7 @@ package IRCNOW::IO; +use strict; +use warnings; + use Exporter 'import'; our @EXPORT_OK = qw( @@ -44,6 +47,8 @@ use constant { #sub ALL () {4}; our $verbosity=ERRORS; +our $backupspath; + sub debug { my ($level, $msg) = @_; if ($verbosity >= $level) { print "$msg\n"; }