From b889880eafc33bb63e7123463a4dce9ca52a2abc Mon Sep 17 00:00:00 2001
From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Fri, 11 Mar 2005 23:46:03 +0000
Subject: [PATCH] fixing xml quoting issues

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@217 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/JSON.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/perlmods/JSON.pm b/src/perlmods/JSON.pm
index 2fd01f4..1893cdf 100644
--- a/src/perlmods/JSON.pm
+++ b/src/perlmods/JSON.pm
@@ -93,7 +93,8 @@ sub JSON2perl {
 	my @strings = /"((?:(?:\\[\"])|[^\"])*)"/sog;
 
 	# Replace with code...
-	s/"(?:(?:\\[\"])|[^\"])*"/ shift(\@strings) /sog;
+	#s/"(?:(?:\\[\"])|[^\"])*"/ do{ \$t = '"'.shift(\@strings).'"'; eval \$t;} /sog;
+	s/"(?:(?:\\[\"])|[^\"]*)"/ eval { shift(\@strings) } /sog;
 
 	# Perlify hash notation
 	s/:/ => /sog;
-- 
2.43.2