[open-ils-commits] r14748 - branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Trigger (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2009-11-03 14:47:23 -0500 (Tue, 03 Nov 2009)
New Revision: 14748

Modified:
   branches/rel_1_6/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: branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
===================================================================
--- branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm	2009-11-03 19:46:31 UTC (rev 14747)
+++ branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm	2009-11-03 19:47:23 UTC (rev 14748)
@@ -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;