From be89a9a1bfd716c3c3919f28b8984a9dc12130ff Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 31 Aug 2009 17:17:28 +0000 Subject: [PATCH] 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 --- src/perl/lib/OpenSRF/Utils/JSON.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/perl/lib/OpenSRF/Utils/JSON.pm b/src/perl/lib/OpenSRF/Utils/JSON.pm index 8ea2815..5ab9917 100644 --- 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 -- 2.11.0