commit e298cbe83bcd68c4a811e80d8532a15f6b2c0fb2 from: Izzy Blacklock date: Tue Aug 01 01:51:10 2023 UTC Made our $IRCNOW::IO::backupspath commit - 42ceeb91d9d7b755b1f2ef1641e63084d0d0f60b commit + e298cbe83bcd68c4a811e80d8532a15f6b2c0fb2 blob - 22712a6e08e33c5a16a2f3e2da507d34fff23d57 blob + 168758b950c0800feb0cee47239e4e1d5bceab38 --- 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"; }