X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Fetc%2Fupgrade%2F3.9.1%2Fcontent;h=3e35f47cf06309a37d49a3d8b98b2c406332c4eb;hb=f35818a77c0b825df553618f09c728c95cf3dc29;hp=acdc0adb77e6c92a36cf5c93f334a18e6cf9728f;hpb=a6fe07e49e3fc12169e801b1ed6874c3a5bd8500;p=freeside.git

diff --git a/rt/etc/upgrade/3.9.1/content b/rt/etc/upgrade/3.9.1/content
index acdc0adb7..3e35f47cf 100644
--- a/rt/etc/upgrade/3.9.1/content
+++ b/rt/etc/upgrade/3.9.1/content
@@ -1,7 +1,9 @@
-@Initial = (
+use strict;
+use warnings;
+
+our @Initial = (
     sub {
-        use strict;
-        $RT::Logger->debug('Make sure templates all have known types');
+        RT->Logger->debug('Make sure templates all have known types');
 
         # We update all NULL rows, below.  We want to find non-NULL
         # rows, which weren't created by the current codebase running
@@ -26,12 +28,11 @@
         );
         while (my $template = $templates->Next) {
             my ($status, $msg) = $template->SetType('Perl');
-            $RT::Logger->warning( "Couldn't change Type of Template #" . $template->Id . ": $msg" ) unless $status;
+            RT->Logger->warning( "Couldn't change Type of Template #" . $template->Id . ": $msg" ) unless $status;
         }
     },
     sub {
-        use strict;
-        $RT::Logger->debug('Adding ExecuteCode right to principals that currently have ModifyTemplate or ModifyScrips');
+        RT->Logger->debug('Adding ExecuteCode right to principals that currently have ModifyTemplate or ModifyScrips');
 
         my $acl = RT::ACL->new(RT->SystemUser);
         $acl->Limit(
@@ -60,7 +61,7 @@
             );
 
             if (!$ok) {
-                $RT::Logger->warn("Unable to grant ExecuteCode on principal " . $principal->id . ": $msg");
+                RT->Logger->warn("Unable to grant ExecuteCode on principal " . $principal->id . ": $msg");
             }
         }
     },