diff options
| author | Paul Johnson <paul@pjcj.net> | 2002-09-10 01:37:33 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-09-09 21:00:08 +0000 |
| commit | 2621462ba22a088e9bfccea02fd4a7e4b02bcba7 (patch) | |
| tree | dff94ad37daf54ebea9651be2b80389fba3aef31 /ext | |
| parent | 3161c2f888e0b8c213abe2ad5f1a8badca94a855 (diff) | |
| download | perl-2621462ba22a088e9bfccea02fd4a7e4b02bcba7.tar.gz | |
Re: [PATCH] Quieten warnings in Deparse.pm
Message-ID: <20020909213733.GD879@pjcj.net>
p4raw-id: //depot/perl@17887
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 f48057bce4..8d976afd08 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -3013,7 +3013,7 @@ sub re_uninterp { | \\[uUlLQE] ) - /length($4) ? "$1$2$4" : "$1$2\\$3"/xeg; + /defined($4) && length($4) ? "$1$2$4" : "$1$2\\$3"/xeg; return $str; } |