fixing JSON bug with top level non-casted hashrefs

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

diff --git a/src/perlmods/JSON.pm b/src/perlmods/JSON.pm
index d927a78..4d21429 100644 (file)
--- a/src/perlmods/JSON.pm
+++ b/src/perlmods/JSON.pm
@@ -96,8 +96,8 @@ sub JSON2perl {
        s/true/ bless( {}, "JSON::bool::true") /sog;
        s/false/ bless( {}, "JSON::bool::false") /sog;
 
-       
-       return eval $_;
+       my $ret;
+       return eval '$ret = '.$_;
 }
 
 sub old_JSON2perl {