diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-02-16 00:05:44 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-15 21:08:13 +0000 |
| commit | aee8fd8dd9487e694a24f4f25d958fa95aa5c3d0 (patch) | |
| tree | 033d08c3beeddd7316cc0b29b8ae18dea0585c66 /ext/B | |
| parent | 78e0e8f41b07aace6189cd5528aa63ecac449e2b (diff) | |
| download | perl-aee8fd8dd9487e694a24f4f25d958fa95aa5c3d0.tar.gz | |
Fix another bug introduced by #14615
Message-ID: <20020215230544.A690@rafael>
p4raw-id: //depot/perl@14712
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B/Deparse.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index 19e798c5e0..912613dbdd 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; } |