repaired partial change from 'class' to 'pkg'. added use strict/warnings

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

diff --git a/src/perl/lib/OpenSRF/Utils/JSON.pm b/src/perl/lib/OpenSRF/Utils/JSON.pm
index 8ea2815..5ab9917 100644 (file)
--- a/src/perl/lib/OpenSRF/Utils/JSON.pm
+++ b/src/perl/lib/OpenSRF/Utils/JSON.pm
@@ -1,4 +1,5 @@
 package OpenSRF::Utils::JSON;
+use strict; use warnings;
 use JSON::XS;
 
 our $parser = JSON::XS->new;
@@ -62,8 +63,8 @@ sub lookup_hint {
 
 sub JSON2perl {
     my( $pkg, $string ) = @_;
-    my $perl = $class->rawJSON2perl($string);
-    return $class->JSONObject2Perl($perl);
+    my $perl = $pkg->rawJSON2perl($string);
+    return $pkg->JSONObject2Perl($perl);
 }
 
 =head2 perl2JSON