[open-ils-commits] r12960 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-04-22 11:49:20 -0400 (Wed, 22 Apr 2009)
New Revision: 12960

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
Log:
use string comparator

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm	2009-04-22 14:04:27 UTC (rev 12959)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm	2009-04-22 15:49:20 UTC (rev 12960)
@@ -16,7 +16,7 @@
     my $editor = shift;
     $class = ref($class) || $class;
 
-    return $id if (ref($id) && ref($id) == $class);
+    return $id if (ref($id) && ref($id) eq $class);
 
     my $standalone = $editor ? 0 : 1;
     $editor ||= new_editor();