support more control characters

mojolicious · Jan 17, 2015 · 2cca3e5 · 2cca3e5
1 parent 782728f
commit 2cca3e5
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/lib/Mojo/Util.pm b/lib/Mojo/Util.pm
@@ -301,7 +301,7 @@ sub tablify {
 
 sub term_escape {
   my $str = shift;
-  $str =~ s/([\x00-\x09\x0b-\x1f\x7f])/sprintf '\\x%02x', ord $1/ge;
+  $str =~ s/([\x00-\x09\x0b-\x1f\x7f\x80-\x9f])/sprintf '\\x%02x', ord $1/ge;
   return $str;
 }
 

diff --git a/t/mojo/util.t b/t/mojo/util.t
@@ -457,6 +457,7 @@ is dumper([1, 2]), "[\n  1,\n  2\n]\n", 'right result';
 # term_escape
 is term_escape("Accept: */*\x0d\x0a"), "Accept: */*\\x0d\x0a", 'right result';
 is term_escape("\t\b\r\n\f"), "\\x09\\x08\\x0d\n\\x0c", 'right result';
-is term_escape("\x00\x09\x0b\x1f\x7f"), '\x00\x09\x0b\x1f\x7f', 'right result';
+is term_escape("\x00\x09\x0b\x1f\x7f\x80\x9f"),
+  '\x00\x09\x0b\x1f\x7f\x80\x9f', 'right result';
 
 done_testing();