Re: [PATCH] Quieten warnings in Deparse.pm

Message-ID: <20020909213733.GD879@pjcj.net>

p4raw-id: //depot/perl@17887

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