From: Paul Johnson <paul@pjcj.net>
Date: Mon, 9 Sep 2002 23:37:33 +0000 (+0200)
Subject: Re: [PATCH] Quieten warnings in Deparse.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2621462ba22a088e9bfccea02fd4a7e4b02bcba7;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;
 }