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 | 0bfd3b01c0d546042eb55f2495b87cb82b1a2563 (patch) | |
| tree | 888105b39d6631b27d1dff58866769d98a01637f /ext/B | |
| parent | 799406ccf1d920a908daef34b110910a61a36828 (diff) | |
| download | perl-0bfd3b01c0d546042eb55f2495b87cb82b1a2563.tar.gz | |
Quieten warnings in Deparse.pm
Message-ID: <20020908215011.GA879@pjcj.net>
p4raw-id: //depot/perl@17883
Diffstat (limited to 'ext/B')
| -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; } |