changed 'my' globals to 'our' globals for testing purposes

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1762 9efc2488-bf62-4759-914b-345cdb29e865

diff --git a/src/perl/lib/OpenSRF/Utils/JSON.pm b/src/perl/lib/OpenSRF/Utils/JSON.pm
index f974616..8ea2815 100644 (file)
--- a/src/perl/lib/OpenSRF/Utils/JSON.pm
+++ b/src/perl/lib/OpenSRF/Utils/JSON.pm
@@ -1,13 +1,13 @@
 package OpenSRF::Utils::JSON;
 use JSON::XS;
 
-my $parser = JSON::XS->new;
+our $parser = JSON::XS->new;
 $parser->ascii(1);        # output \u escaped strings for any char with a value over 127
 $parser->allow_nonref(1); # allows non-reference values to equate to themselves (see perldoc)
 
-my %_class_map = ();
-my $JSON_CLASS_KEY = '__c';
-my $JSON_PAYLOAD_KEY = '__p';
+our %_class_map = ();
+our $JSON_CLASS_KEY = '__c';
+our $JSON_PAYLOAD_KEY = '__p';
 
 
 =head1 NAME