Bug 5611 INIT block causes failure with mod perl

Per module INIT Blocks are not run in mod_perl so their
variables are not visible. A lexical var is adequate
for this purpose

Signed-off-by: Colin Campbell <colin.campbell@ptfs-europe.com>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
(cherry picked from commit e0d76bd88d25e87f9d8f450f1c4e029812eacf02)

Signed-off-by: Chris Nighswonger <chris.nighswonger@gmail.com>

diff --git a/C4/Scrubber.pm b/C4/Scrubber.pm
index 80e08e5..d01795a 100644 (file)
--- a/C4/Scrubber.pm
+++ b/C4/Scrubber.pm
@@ -30,19 +30,18 @@ BEGIN {
        # @ISA = qw(HTML::Scrubber);
 }
 
-INIT {
-       %scrubbertypes = (
-               default => {},  # place holder, default settings are below as fallbacks in call to constructor
-                   tag => {},  # uses defaults
-               comment => {
-                       allow   => [qw( br b i em big small strong )],
-               },
-               staff   => {
-                       default => [ 1 =>{'*'=>1} ],
-                       comment => 1,
-               },
-       );
-}
+
+my %scrubbertypes = (
+       default => {},  # place holder, default settings are below as fallbacks in call to constructor
+           tag => {},  # uses defaults
+       comment => {
+       allow   => [qw( br b i em big small strong )],
+       },
+       staff   => {
+       default => [ 1 =>{'*'=>1} ],
+       comment => 1,
+       },
+);
 
 
 sub new {