From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 15 Feb 2002 23:05:44 +0000 (+0100)
Subject: Fix another bug introduced by #14615
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aee8fd8dd9487e694a24f4f25d958fa95aa5c3d0;p=p5sagit%2Fp5-mst-13.2.git

Fix another bug introduced by #14615
Message-ID: <20020215230544.A690@rafael>

p4raw-id: //depot/perl@14712
---

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 19e798c..912613d 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -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;
 }