go one deeper in the caller stack so we're not repeating
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 22 Sep 2008 16:09:05 +0000 (16:09 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 22 Sep 2008 16:09:05 +0000 (16:09 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@10682 dcc99617-32d9-48b4-a31d-7c20da2025e4

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

index 538520b..fa77792 100644 (file)
@@ -33,7 +33,7 @@ sub new {
 
        my( $m, $f, $l ) = caller(0);
        my( $mm, $ff, $ll ) = caller(1);
-       my( $mmm, $fff, $lll ) = caller(1);
+       my( $mmm, $fff, $lll ) = caller(2);
 
        $f  ||= "";
        $l  ||= "";