Parent Directory | Revision Log | Patch
revision 256 by dpavlin, Tue Aug 18 21:30:55 2009 UTC | revision 257 by dpavlin, Tue Aug 18 21:37:49 2009 UTC | |
---|---|---|
# | Line 131 sub audit { | Line 131 sub audit { |
131 | my $caller; | my $caller; |
132 | my $depth = 0; | my $depth = 0; |
133 | while ( my @c = caller($depth) ) { | while ( my @c = caller($depth) ) { |
134 | push @$caller, [ @c ]; | push @$caller, [ splice(@c,0,4) ]; |
135 | $depth++; | $depth++; |
136 | } | } |
137 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |