diff options
| author | Robin Houston <robin@cpan.org> | 2001-04-26 21:34:29 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-26 18:46:42 +0000 |
| commit | 3f766ba313fac08361667b38ebc1ca30388db1c3 (patch) | |
| tree | 51c65252ce22829e7e66cb5e0bb176eb0637ec4c /ext/B | |
| parent | 07766739ad671051f274806a83c05be36e7ca89a (diff) | |
| download | perl-3f766ba313fac08361667b38ebc1ca30388db1c3.tar.gz | |
Re: [PATCH B::Deparse] fix string uninterpretation
Message-ID: <20010426203429.A28261@puffinry.freeserve.co.uk>
Hashes do not interpolate.
p4raw-id: //depot/perl@9860
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B/Deparse.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index 7f6a321710..f8f90144b0 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -2754,14 +2754,14 @@ sub pp_enterwrite { unop(@_, "write") } # but not character escapes sub uninterp { my($str) = @_; - $str =~ s/(^|\G|[^\\])((?:\\\\)*)([\$\%\@]|\\[uUlLQE])/$1$2\\$3/g; + $str =~ s/(^|\G|[^\\])((?:\\\\)*)([\$\@]|\\[uUlLQE])/$1$2\\$3/g; return $str; } # the same, but treat $|, $), $( and $ at the end of the string differently sub re_uninterp { my($str) = @_; - $str =~ s/(^|\G|[^\\])((?:\\\\)*)([\$\%\@](?!\||\)|\$\(|$)|\\[uUlLQE])/$1$2\\$3/g + $str =~ s/(^|\G|[^\\])((?:\\\\)*)([\$\@](?!\||\)|\$\(|$)|\\[uUlLQE])/$1$2\\$3/g ; return $str; } |