From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Fri, 11 Mar 2005 23:46:03 +0000 (+0000)
Subject: fixing xml quoting issues
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=b889880eafc33bb63e7123463a4dce9ca52a2abc;p=opensrf%2Fbjwebb.git

fixing xml quoting issues


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

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;