This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix another bug introduced by #14615
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 15 Feb 2002 23:05:44 +0000 (00:05 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 15 Feb 2002 21:08:13 +0000 (21:08 +0000)
Message-ID: <20020215230544.A690@rafael>

p4raw-id: //depot/perl@14712

ext/B/B/Deparse.pm

index 19e798c..912613d 100644 (file)
@@ -3056,7 +3056,8 @@ sub escape_str { # ASCII, UTF8
 sub escape_extended_re {
     my($str) = @_;
     $str =~ s/(.)/ord($1) > 255 ? sprintf("\\x{%x}", ord($1)) : $1/eg;
-    $str =~ s/([[:^print:]])/sprintf("\\%03o", ord($1))/ge;
+    $str =~ s/([[:^print:]])/
+       ($1 =~ y! \t\n!!) ? $1 : sprintf("\\%03o", ord($1))/ge;
     $str =~ s/\n/\n\f/g;
     return $str;
 }