From f53478078a7252d6487bdf25cce80059be269187 Mon Sep 17 00:00:00 2001 From: miker Date: Tue, 6 Sep 2005 15:30:02 +0000 Subject: [PATCH] matching non-letter and non-number git-svn-id: svn://svn.open-ils.org/ILS/trunk@1800 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 71dd28a054..04b75270f7 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/(\pM)/sprintf('\u%0.4x',ord($1))/sgoe; + $perl =~ s/(\P{L}|\P{N})/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)/sprintf('\u%0.4x',ord($1))/sgoe; + $perl =~ s/(\P{L}|\P{N})/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