From dbec51abdc4d13dc331b8602576a0d7fa126e1d4 Mon Sep 17 00:00:00 2001 From: miker Date: Tue, 6 Sep 2005 15:38:35 +0000 Subject: [PATCH] matching non-letter and non-number git-svn-id: svn://svn.open-ils.org/ILS/trunk@1802 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- OpenSRF/src/perlmods/JSON.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/OpenSRF/src/perlmods/JSON.pm b/OpenSRF/src/perlmods/JSON.pm index 995f161fdb..4c0530b34c 100644 --- a/OpenSRF/src/perlmods/JSON.pm +++ b/OpenSRF/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/(\P{L}|\P{N})/sprintf('\u%0.4x',ord($1))/sgoe; + $perl =~ s/(\pM|\pS|\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/(\P{L}|\P{N}|\P{P})/sprintf('\u%0.4x',ord($1))/sgoe; + $perl =~ s/(\pM|\pS|\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.43.2