From 87a4251b88404556b0f40afd53e58929f7e0b0a2 Mon Sep 17 00:00:00 2001
From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Wed, 16 Mar 2005 01:59:32 +0000
Subject: [PATCH] fix for embeded $

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

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;
-- 
2.11.0