From 6c3618a30e8f66c247b18ddd41573bf50bf1420c Mon Sep 17 00:00:00 2001 From: sboyette Date: Fri, 28 Aug 2009 20:31:31 +0000 Subject: [PATCH] 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 --- src/perl/lib/OpenSRF/Utils/JSON.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 -- 2.11.0