Quieten warnings in Deparse.pm

Message-ID: <20020908215011.GA879@pjcj.net>

p4raw-id: //depot/perl@17883

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 6a57872..f48057b 100644 (file)
--- 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;
 }