enchanced error message

makamaka · Mar 19, 2010 · 4c4bf0c · 4c4bf0c
1 parent 339bbc0
commit 4c4bf0c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/Changes b/Changes
@@ -19,6 +19,7 @@ In this version, JSON was totally rewritten.
 2.XX
 	[JSON::PP]
 	- fixed encode an overloaded 'eq' object bug (reported by Alexey A. Kiritchun)
+	- enhanced an error message compatible to JSON::XS
 
 2.17  Thu Jan  7 12:23:13 2010
 	[JSON]

diff --git a/lib/JSON/PP.pm b/lib/JSON/PP.pm
@@ -822,6 +822,7 @@ BEGIN {
                     }
                     else{
                         unless ($loose) {
+                            $at -= 2;
                             decode_error('illegal backslash escape sequence in string');
                         }
                         $s .= $ch;
@@ -1219,6 +1220,7 @@ BEGIN {
                     : $c == 0x0d ? '\r'
                     : $c == 0x0c ? '\f'
                     : $c <  0x20 ? sprintf('\x{%x}', $c)
+                    : $c == 0x5c ? '\\\\'
                     : $c <  0x80 ? chr($c)
                     : sprintf('\x{%x}', $c)
                     ;