From 6015bddfc436327877c14964436b24faf37a3c15 Mon Sep 17 00:00:00 2001
From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Wed, 18 Jul 2007 19:59:47 +0000
Subject: [PATCH] added class hint space stripping to new perl JSON parser
 (like the legacy one does) since the legacy gateway code does not strip out
 the spaces

git-svn-id: svn://svn.open-ils.org/OpenSRF/branches/new-json2@1047 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/OpenSRF/Utils/JSON.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/perlmods/OpenSRF/Utils/JSON.pm b/src/perlmods/OpenSRF/Utils/JSON.pm
index f0e6981..c78ec48 100644
--- a/src/perlmods/OpenSRF/Utils/JSON.pm
+++ b/src/perlmods/OpenSRF/Utils/JSON.pm
@@ -108,6 +108,8 @@ sub JSONObject2Perl {
 	if( $ref eq 'HASH' ) {
 		if( defined($obj->{$JSON_CLASS_KEY})) {
 			my $cls = $obj->{$JSON_CLASS_KEY};
+            $cls =~ s/^\s+//o;
+            $cls =~ s/\s+$//o;
 			if( $obj = $class->JSONObject2Perl($obj->{$JSON_PAYLOAD_KEY}) ) {
 				$cls = $class->lookup_class($cls) || $cls;
 				return bless(\$obj, $cls) unless ref($obj); 
-- 
2.11.0