[log4perl-devel] $0 not defined in Safe.pm?

[Mike S. <log...@pe...>]

Hi all,

just saw that there's a warning message coming out of Log4perl's test case
t/041SafeEval.t and it boils down to that $0 is not available in Safe
compartments, this snippet

    use Safe;
    my $safe = Safe->new();
    $safe->reval('print "\$0 is $0\n"');

won't show anything for $0. This results in stat() being called with a
undef argument in

    log4perl.appender.Main.filename = \
        sub { "example" . (stat($0))[9] . ".log" }

if Log4perl's Safe compartments are used. Does anyone know if this is a bug
in Safe?

-- Mike

Mike Schilli
log...@pe...
http://perlmeister.com
http://log4perl.sourceforge.net