[Opensrf-commits] r1764 - trunk/src/perl/lib/OpenSRF/Utils (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-08-31 13:17:28 -0400 (Mon, 31 Aug 2009)
New Revision: 1764

Modified:
   trunk/src/perl/lib/OpenSRF/Utils/JSON.pm
Log:
repaired partial change from 'class' to 'pkg'.  added use strict/warnings

Modified: trunk/src/perl/lib/OpenSRF/Utils/JSON.pm
===================================================================
--- trunk/src/perl/lib/OpenSRF/Utils/JSON.pm	2009-08-31 03:48:26 UTC (rev 1763)
+++ trunk/src/perl/lib/OpenSRF/Utils/JSON.pm	2009-08-31 17:17:28 UTC (rev 1764)
@@ -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 JSON2perl {
     my( $pkg, $string ) = @_;
-    my $perl = $class->rawJSON2perl($string);
-    return $class->JSONObject2Perl($perl);
+    my $perl = $pkg->rawJSON2perl($string);
+    return $pkg->JSONObject2Perl($perl);
 }
 
 =head2 perl2JSON