[open-ils-commits] r10682 - trunk/Open-ILS/src/perlmods/OpenILS

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-09-22 12:09:05 -0400 (Mon, 22 Sep 2008)
New Revision: 10682

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Event.pm
Log:
go one deeper in the caller stack so we're not repeating

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Event.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Event.pm	2008-09-22 13:22:15 UTC (rev 10681)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Event.pm	2008-09-22 16:09:05 UTC (rev 10682)
@@ -33,7 +33,7 @@
 
 	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  ||= "";