diff options
author | Michael G Schwern <schwern@pobox.com> | 2005-07-12 08:36:54 -0700 |
---|---|---|
committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-07-13 06:27:48 +0000 |
commit | bd6f3d36ec51e9bd1117df61e303904126a8537a (patch) | |
tree | 32c2d80075d895e6667b4c6b2bb64f2c72ccb081 /lib/dumpvar.pl | |
parent | 041457d90dbb6fb79a72c7a8462f01423f2daa09 (diff) | |
download | perl-bd6f3d36ec51e9bd1117df61e303904126a8537a.tar.gz |
[perl #6749] Perl debugger outputs ctrl-\ wrongly
From: "Michael G Schwern via RT" <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-6749-117055.16.4354496694007@perl.org>
p4raw-id: //depot/perl@25130
Diffstat (limited to 'lib/dumpvar.pl')
-rw-r--r-- | lib/dumpvar.pl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lib/dumpvar.pl b/lib/dumpvar.pl index 474818a657..43e107ff5f 100644 --- a/lib/dumpvar.pl +++ b/lib/dumpvar.pl @@ -80,7 +80,7 @@ sub stringify { } elsif ($unctrl eq 'quote') { s/([\"\\\$\@])/\\$1/g if $tick eq '"'; s/\033/\\e/g; - s/([\000-\037\177])/'\\c'.chr(ord($1)^64)/eg; + s/([\000-\037\177])/'\\c'._escaped_ord($1)/eg; } $_ = uniescape($_); s/([\200-\377])/'\\'.sprintf('%3o',ord($1))/eg if $quoteHighBit; @@ -89,6 +89,14 @@ sub stringify { : $tick . $_ . $tick; } +# Ensure a resulting \ is escaped to be \\ +sub _escaped_ord { + my $chr = shift; + $chr = chr(ord($chr)^64); + $chr =~ s{\\}{\\\\}g; + return $chr; +} + sub ShortArray { my $tArrayDepth = $#{$_[0]} ; $tArrayDepth = $#{$_[0]} < $arrayDepth-1 ? $#{$_[0]} : $arrayDepth-1 |