Parent Directory | Revision Log | Patch
revision 358 by dpavlin, Sun Aug 30 10:29:40 2009 UTC | revision 482 by dpavlin, Sat Jan 23 18:31:14 2010 UTC | |
---|---|---|
# | Line 124 sub audit { | Line 124 sub audit { |
124 | ||
125 | my $time = time(); | my $time = time(); |
126 | ||
127 | my @caller = caller(0); | my @caller = caller(1); # skip store wrapper |
128 | $caller[3] = (caller(1))[3]; | $caller[3] = (caller(1))[3]; |
129 | $caller[3] =~ s{^.+::}{}; # stip package name from sub | $caller[3] =~ s{^.+::}{}; # stip package name from sub |
130 | $data->{package} = { | $data->{package} = { |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |