[open-ils-commits] r14750 - tags/rel_1_6_0_0/Open-ILS/src/perlmods/OpenILS/Application/Trigger (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2009-11-03 14:48:29 -0500 (Tue, 03 Nov 2009)
New Revision: 14750

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

Modified: tags/rel_1_6_0_0/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
===================================================================
--- tags/rel_1_6_0_0/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm	2009-11-03 19:47:44 UTC (rev 14749)
+++ tags/rel_1_6_0_0/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm	2009-11-03 19:48:29 UTC (rev 14750)
@@ -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;