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 (file)
--- 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;
     }