splice part of caller output to useful one

[pxelator] / lib / PXElator / CouchDB.pm

diff --git a/lib/PXElator/CouchDB.pm b/lib/PXElator/CouchDB.pm
index f688660..0bd77b7 100644 (file)
--- a/lib/PXElator/CouchDB.pm
+++ b/lib/PXElator/CouchDB.pm
@@ -131,7 +131,7 @@ sub audit {
        my $caller;
        my $depth = 0;
        while ( my @c = caller($depth) ) {
-               push @$caller, [ @c ];
+               push @$caller, [ splice(@c,0,4) ];
                $depth++;
        }