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

[svn at svn.open-ils.org]

Author: miker
Date: 2009-11-03 14:46:31 -0500 (Tue, 03 Nov 2009)
New Revision: 14747

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
Log:
use the individual opcodes instead of the :load tag, which is not supported until opcodes in perl 5.10

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm	2009-11-03 18:54:41 UTC (rev 14746)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm	2009-11-03 19:46:31 UTC (rev 14747)
@@ -361,7 +361,7 @@
     try {
    
         my $compartment = new Safe;
-        $compartment->permit(':default',':load');
+        $compartment->permit(':default','require','dofile','caller');
         $compartment->share('$current_environment');
 
         $self->environment->{EventProcessor} = $self;