From aee8fd8dd9487e694a24f4f25d958fa95aa5c3d0 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sat, 16 Feb 2002 00:05:44 +0100
Subject: [PATCH] Fix another bug introduced by #14615 Message-ID:
 <20020215230544.A690@rafael>

p4raw-id: //depot/perl@14712
---
 ext/B/B/Deparse.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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;
 }
-- 
2.7.4