X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=lib%2FPXElator%2FCouchDB.pm;fp=lib%2FPXElator%2FCouchDB.pm;h=53a12de98a5366254adc9163efc4c4b180ebde2d;hb=94e74709729ae3ec439ced602feb35d3a7bd5a46;hp=2453eba558782158d8fd9d4df1790d4b302dd742;hpb=cc70584d131fc11222df55529559d2fd54f25091;p=pxelator

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/ );