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 (file)
--- 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;