Select Code to Download

use Try::Tiny;
use Log::Log4perl qw(get_logger :levels);
...
   # the following line would be DB.pm line 1380
   my ($sth, $options, @args) = @_;
}

perl -t -I /home/martin/modules/BET/lib q.pl -n1 -p 9999 -r -c /etc/se
+rvices.ini
Attempt to free unreferenced scalar: SV 0xa7b9650, Perl interpreter: 0
+x9ad0008 at q.pl line 1895, <GEN41> line 1.
Failed to insert into job_audit, panic: attempt to copy freed scalar a
+7b9650 to ad20598 at /home/martin/modules/X/lib/X/DB.pm line 1380, <G
+EN42> line 1.