From 97081d472af70844722536fa338f1af18ac62403 Mon Sep 17 00:00:00 2001 From: miker Date: Tue, 6 Sep 2005 15:57:03 +0000 Subject: [PATCH] matching non-letter and non-number git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@530 9efc2488-bf62-4759-914b-345cdb29e865 --- src/perlmods/JSON.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/perlmods/JSON.pm b/src/perlmods/JSON.pm index 4c0530b..d264496 100644 --- a/src/perlmods/JSON.pm +++ b/src/perlmods/JSON.pm @@ -234,7 +234,7 @@ sub perl2JSON { $perl =~ s/\f/\\f/sgo; $perl =~ s/\r/\\r/sgo; $perl =~ s/\n/\\n/sgo; - $perl =~ s/(\pM|\pS|\pC)/sprintf('\u%0.4x',ord($1))/sgoe; + $perl =~ s/(\pM|\pC)/sprintf('\u%0.4x',ord($1))/sgoe; if (length($perl) < 10 and $perl =~ /^(?:\+|-)?\d*\.?\d+$/o and $perl !~ /^(?:\+|-)?0\d+/o ) { $output = $perl; } else { @@ -314,7 +314,7 @@ sub perl2prettyJSON { $perl =~ s/\f/\\f/sgo; $perl =~ s/\r/\\r/sgo; $perl =~ s/\n/\\n/sgo; - $perl =~ s/(\pM|\pS|\pC)/sprintf('\u%0.4x',ord($1))/sgoe; + $perl =~ s/(\pM|\pC)/sprintf('\u%0.4x',ord($1))/sgoe; $output .= " "x$depth unless($nospace); if (length($perl) < 10 and $perl =~ /^(?:\+|-)?\d*\.?\d+$/o and $perl !~ /^(?:\+|-)?0\d+/o ) { $output = $perl; -- 2.11.0