[Opensrf-commits] r1762 - trunk/src/perl/lib/OpenSRF/Utils (sboyette)

[svn at svn.open-ils.org]

Author: sboyette
Date: 2009-08-28 16:31:31 -0400 (Fri, 28 Aug 2009)
New Revision: 1762

Modified:
   trunk/src/perl/lib/OpenSRF/Utils/JSON.pm
Log:
changed 'my' globals to 'our' globals for testing purposes

Modified: trunk/src/perl/lib/OpenSRF/Utils/JSON.pm
===================================================================
--- trunk/src/perl/lib/OpenSRF/Utils/JSON.pm	2009-08-28 20:31:30 UTC (rev 1761)
+++ trunk/src/perl/lib/OpenSRF/Utils/JSON.pm	2009-08-28 20:31:31 UTC (rev 1762)
@@ -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