[Opensrf-commits] r1266 - trunk/src/perlmods/OpenSRF/Utils

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-03-08 20:16:48 -0500 (Sat, 08 Mar 2008)
New Revision: 1266

Modified:
   trunk/src/perlmods/OpenSRF/Utils/JSON.pm
Log:
added special case to avoid wrapping boolean objects

Modified: trunk/src/perlmods/OpenSRF/Utils/JSON.pm
===================================================================
--- trunk/src/perlmods/OpenSRF/Utils/JSON.pm	2008-03-09 01:02:20 UTC (rev 1265)
+++ trunk/src/perlmods/OpenSRF/Utils/JSON.pm	2008-03-09 01:16:48 UTC (rev 1266)
@@ -92,6 +92,8 @@
 	my $ref = ref($obj);
 
 	return $obj unless $ref;
+
+    return $obj if $ref eq 'JSON::XS::Boolean';
 	my $newobj;
 
     if(UNIVERSAL::isa($obj, 'HASH')) {