Parent Directory | Revision Log | Patch
revision 221 by dpavlin, Sat Aug 15 14:21:55 2009 UTC | revision 240 by dpavlin, Mon Aug 17 00:52:51 2009 UTC | |
---|---|---|
# | Line 125 sub audit { | Line 125 sub audit { |
125 | ( $package, undef, $line ) = caller(0) if ! $package || $package eq 'main'; | ( $package, undef, $line ) = caller(0) if ! $package || $package eq 'main'; |
126 | ||
127 | my $time = time(); | my $time = time(); |
128 | $sub =~ s{^.+::}{}; # stip package name | |
129 | ||
130 | $data->{$_} = eval '$' . $_ foreach ( qw/time package line sub/ ); | $data->{$_} = eval '$' . $_ foreach ( qw/time package line sub/ ); |
131 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |