http://qs321.pair.com?node_id=626348


in reply to Bareword warning question

Hello Akoya,

I have just a little suggestion for this code part:
print $LOG _timestamp(), q{ }, join ':', $0, $msg_level, $msg;
Maybe you like to use something like
use Log::Handler; my $log = Log::Handler->new( filename => $logfile, mode => 'append', timestamp => $your_format, prefix => "$0:<--LEVEL-->:" ); $log->warning($msg); # or another msg_level
Kind regards, bloonix