From 2d57d30fecf7cb9c9cbee610b850fab3180a8b35 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 3 Nov 2009 19:46:31 +0000
Subject: [PATCH] use the individual opcodes instead of the :load tag, which is
 not supported until opcodes in perl 5.10

git-svn-id: svn://svn.open-ils.org/ILS/trunk@14747 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
index e64b9d0d85..0d696277f5 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Trigger/Event.pm
@@ -361,7 +361,7 @@ sub build_environment {
     try {
    
         my $compartment = new Safe;
-        $compartment->permit(':default',':load');
+        $compartment->permit(':default','require','dofile','caller');
         $compartment->share('$current_environment');
 
         $self->environment->{EventProcessor} = $self;
-- 
2.11.0