diff options
| author | Paul Johnson <paul@pjcj.net> | 2002-09-09 01:50:11 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-09-09 19:10:08 +0000 |
| commit | c7de4c6618c94666be04e5ac0b48fa329c22560b (patch) | |
| tree | 888105b39d6631b27d1dff58866769d98a01637f /ext | |
| parent | 2a488fe1841b80616e850c6a4cca11278f3c565b (diff) | |
| download | perl-c7de4c6618c94666be04e5ac0b48fa329c22560b.tar.gz | |
Quieten warnings in Deparse.pm
Message-ID: <20020908215011.GA879@pjcj.net>
p4raw-id: //depot/perl@17883
Diffstat (limited to 'ext')
| -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 6a578725e1..f48057bce4 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -3041,7 +3041,7 @@ sub re_uninterp_extended { | \\[uUlLQE] ) - /length($4) ? "$1$2$4" : "$1$2\\$3"/xeg; + /defined($4) && length($4) ? "$1$2$4" : "$1$2\\$3"/xeg; return $str; } |