/[pxelator]/lib/PXElator/CouchDB.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/PXElator/CouchDB.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    
Legend:
Removed from v.221  
changed lines
  Added in v.240
  ViewVC Help
Powered by ViewVC 1.1.26