From: sboyette Date: Fri, 28 Aug 2009 20:31:31 +0000 (+0000) Subject: changed 'my' globals to 'our' globals for testing purposes X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=6c3618a30e8f66c247b18ddd41573bf50bf1420c;p=opensrf%2Fbjwebb.git 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 --- 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