diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-26 19:27:48 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-26 19:27:48 +0000 |
| commit | 2dbfce8813da0261ef4eae6c5c9894a131e58e6c (patch) | |
| tree | d89779eb2eb666d69c97f10a3327b67b9a3fc3af | |
| parent | 7013e6ae0ee41c19b7e4c3937d6f838af15b9af8 (diff) | |
| download | perl-2dbfce8813da0261ef4eae6c5c9894a131e58e6c.tar.gz | |
Dethinko from Robin Houston.
p4raw-id: //depot/perl@9864
| -rw-r--r-- | ext/B/B/Deparse.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index a982da217f..3679a96dcc 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -2763,7 +2763,7 @@ sub uninterp { # 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; } |