From b593a6cc61f42ef887d27b2a0dedc8497054c6c1 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 10 Nov 2005 02:12:12 +0000
Subject: [PATCH] arg! cut-n-paste error

git-svn-id: svn://svn.open-ils.org/ILS/trunk@1994 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 OpenSRF/src/perlmods/JSON.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/OpenSRF/src/perlmods/JSON.pm b/OpenSRF/src/perlmods/JSON.pm
index 4b7045538a..6c48a14c30 100644
--- a/OpenSRF/src/perlmods/JSON.pm
+++ b/OpenSRF/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.43.2