improved Mojo::JSON to generate smaller JSON by not escaping the "/" …

…character
mojolicious · Aug 12, 2014 · 5271482 · 5271482
1 parent 5c4687d
commit 5271482
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 2 deletions.
diff --git a/Changes b/Changes
@@ -1,5 +1,7 @@
 
 5.28  2014-08-12
+  - Improved Mojo::JSON to generate smaller JSON by not escaping the "/"
+    character.
 
 5.27  2014-08-11
   - Added support for nested helpers.

diff --git a/lib/Mojo/JSON.pm b/lib/Mojo/JSON.pm
@@ -230,7 +230,7 @@ sub _encode_object {
 
 sub _encode_string {
   my $str = shift;
-  $str =~ s!([\x00-\x1f\x{2028}\x{2029}\\"/])!$REVERSE{$1}!gs;
+  $str =~ s!([\x00-\x1f\x{2028}\x{2029}\\"])!$REVERSE{$1}!gs;
   return "\"$str\"";
 }
 

diff --git a/t/mojo/json.t b/t/mojo/json.t
@@ -147,7 +147,7 @@ is b($bytes)->decode('UTF-8'), "[\"hello\\u0003\x{0152}world\x{0152}!\"]",
 $bytes = encode_json ["123abc"];
 is $bytes, '["123abc"]', 'encode ["123abc"]';
 $bytes = encode_json ["\x00\x1f \a\b/\f\r"];
-is $bytes, '["\\u0000\\u001F \\u0007\\b\/\f\r"]',
+is $bytes, '["\\u0000\\u001F \\u0007\\b/\f\r"]',
   'encode ["\x00\x1f \a\b/\f\r"]';
 $bytes = encode_json '';
 is $bytes, '""', 'encode ""';