debug info now shows caller 0 and 1 (instead of 1 and 2)
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 6 Feb 2006 18:51:09 +0000 (18:51 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 6 Feb 2006 18:51:09 +0000 (18:51 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@2979 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Event.pm

index 476a7fa..b510a8a 100644 (file)
@@ -28,8 +28,8 @@ sub new {
        throw OpenSRF::EX 
                ("No event defined with textcode: $event") unless defined $e;
 
-       my( $m, $f, $l ) = caller(1);
-       my( $mm, $ff, $ll ) = caller(2);
+       my( $m, $f, $l ) = caller(0);
+       my( $mm, $ff, $ll ) = caller(1);
 
        return { ilsevent => $e, textcode => $event, 
                stacktrace => "$f:$l, $ff:$ll", %params };