From 94e74709729ae3ec439ced602feb35d3a7bd5a46 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Mon, 17 Aug 2009 00:52:51 +0000 Subject: [PATCH] stip package name from sub --- lib/PXElator/CouchDB.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/lib/PXElator/CouchDB.pm b/lib/PXElator/CouchDB.pm index 2453eba..53a12de 100644 --- a/lib/PXElator/CouchDB.pm +++ b/lib/PXElator/CouchDB.pm @@ -125,6 +125,7 @@ sub audit { ( $package, undef, $line ) = caller(0) if ! $package || $package eq 'main'; my $time = time(); + $sub =~ s{^.+::}{}; # stip package name $data->{$_} = eval '$' . $_ foreach ( qw/time package line sub/ ); -- 2.20.1