projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
78e0e8f
)
Fix another bug introduced by #14615
author
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Fri, 15 Feb 2002 23:05:44 +0000
(
00:05
+0100)
committer
Jarkko 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
patch
|
blob
|
history
diff --git
a/ext/B/B/Deparse.pm
b/ext/B/B/Deparse.pm
index
19e798c
..
912613d
100644
(file)
--- 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;
}