From ba5540e1bdc6ddee54b6e91499bbadf8d08ecb73 Mon Sep 17 00:00:00 2001
From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Thu, 10 Nov 2005 02:12:12 +0000
Subject: [PATCH] arg! cut-n-paste error

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

diff --git a/src/perlmods/JSON.pm b/src/perlmods/JSON.pm
index 4b70455..6c48a14 100644
--- a/src/perlmods/JSON.pm
+++ b/src/perlmods/JSON.pm
@@ -199,7 +199,7 @@ sub perl2JSON {
 			my $outkey = NFD($key);
 			$output .= ',' if ($c); 
 
-			$outkey = NFD($perl);
+			$outkey = NFD($outkey);
 			$outkey =~ s{\\}{\\\\}sgo;
 			$outkey =~ s/"/\\"/sgo;
 			$outkey =~ s/\t/\\t/sgo;
-- 
2.11.0