From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Wed, 16 Mar 2005 01:59:32 +0000 (+0000)
Subject: fix for embeded $
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=87a4251b88404556b0f40afd53e58929f7e0b0a2;p=opensrf%2Fbjwebb.git

fix for embeded $


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

diff --git a/src/perlmods/JSON.pm b/src/perlmods/JSON.pm
index 0711049..5e4392e 100644
--- a/src/perlmods/JSON.pm
+++ b/src/perlmods/JSON.pm
@@ -83,6 +83,10 @@ sub JSON2perl {
 	my $class = shift;
 	local $_ = shift;
 
+	s/(?<!\\)\$/\\\$/gmo; # fixup $ for later
+	s/(?<!\\)\@/\\\@/gmo; # fixup @ for later
+	s/(?<!\\)\%/\\\%/gmo; # fixup % for later
+
 	# Convert JSON Unicode...
 	s/\\u(\d{4})/chr(hex($1))/esog;
 
@@ -122,6 +126,7 @@ sub old_JSON2perl {
 
 	$json =~ s/(?<!\\)\$/\\\$/gmo; # fixup $ for later
 	$json =~ s/(?<!\\)\@/\\\@/gmo; # fixup @ for later
+	$json =~ s/(?<!\\)\%/\\\%/gmo; # fixup % for later
 
 	my @casts;
 	my $casting_depth = 0;