diff options
| author | Paul Johnson <paul@pjcj.net> | 2003-08-28 02:13:59 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-28 16:12:08 +0000 |
| commit | e1f566252224f88910168004f85aabf1c40cce04 (patch) | |
| tree | 77ec3604d29e410c3609488b2a7fb2591b197d4c /ext | |
| parent | ea1be4b8cf7a66efbaa6046e72dd784820661a77 (diff) | |
| download | perl-e1f566252224f88910168004f85aabf1c40cce04.tar.gz | |
Quieten more warnings in Deparse.pm
Message-ID: <20030827221359.GE28396@pjcj.net>
p4raw-id: //depot/perl@20924
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Deparse.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index 6e3decc4fb..d68e823c1f 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; } |