From: Paul Johnson <paul@pjcj.net>
Date: Thu, 28 Aug 2003 00:13:59 +0000 (+0200)
Subject: Quieten more warnings in Deparse.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e1f566252224f88910168004f85aabf1c40cce04;p=p5sagit%2Fp5-mst-13.2.git

Quieten more warnings in Deparse.pm
Message-ID: <20030827221359.GE28396@pjcj.net>

p4raw-id: //depot/perl@20924
---

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 6e3decc..d68e823 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -2144,7 +2144,7 @@ sub listop {
     $first = "+$first" if not $parens and substr($first, 0, 1) eq "(";
     push @exprs, $first;
     $kid = $kid->sibling;
-    if ($proto =~ /^\*\*/ && $kid->name eq "rv2gv") {
+    if (defined $proto && $proto =~ /^\*\*/ && $kid->name eq "rv2gv") {
 	push @exprs, $self->deparse($kid->first, 6);
 	$kid = $kid->sibling;
     }