fixed backslash encoding bug in Mojo::JSON

Changes

@@ -14,6 +14,7 @@ This file documents the revision history for Perl extension Mojo.
         - Made param decoding more defensive and allow malformed data to pass
           through for debugging.
         - Reduced Mojolicious log output outside of development mode.
+        - Fixed backslash encoding bug in Mojo::JSON.
         - Fixed memory leaks in Mojolicious plugins. (sharifulin)
         - Fixed makefile and app generators.
         - Fixed a case where an ending tag would be interpreted as a line

lib/Mojo/JSON.pm

@@ -63,14 +63,14 @@ my $VALUE_SEPARATOR_RE = qr/^$WHITESPACE_RE\,/;
 
 # Escaped special character map
 my $ESCAPE = {
-    '\"' => "\x22",
-    '\\' => "\x5c",
-    '\/' => "\x2f",
-    '\b' => "\x8",
-    '\f' => "\xC",
-    '\n' => "\xA",
-    '\r' => "\xD",
-    '\t' => "\x9"
+    '\"'   => "\x22",
+    '\\\\' => "\x5c",
+    '\/'   => "\x2f",
+    '\b'   => "\x8",
+    '\f'   => "\xC",
+    '\n'   => "\xA",
+    '\r'   => "\xD",
+    '\t'   => "\x9"
 };
 my $REVERSE_ESCAPE = {};
 for my $key (keys %$ESCAPE) { $REVERSE_ESCAPE->{$ESCAPE->{$key}} = $key }

t/mojo/json.t

@@ -5,7 +5,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 92;
+use Test::More tests => 94;
 
 use Mojo::ByteStream 'b';
 
@@ -212,6 +212,12 @@ $string = $json->encode($array);
 ok($string);
 is_deeply($json->decode($string), $array);
 
+# Real world roundtrip
+$string = $json->encode({foo => 'c:\progra~1\mozill~1\firefox.exe'});
+is($string, '{"foo":"c:\\\\progra~1\\\\mozill~1\\\\firefox.exe"}');
+$hash = $json->decode($string);
+is_deeply($hash, {foo => 'c:\progra~1\mozill~1\firefox.exe'});
+
 # Errors
 is($json->decode('[[]'),    undef);
 is($json->error,            'Missing right square bracket near end of file.');