In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/679f225298d1387d98096620b81b27724e70766c?hp=da9ca395ced485afc455e876f420809dc0e64544>
- Log ----------------------------------------------------------------- commit 679f225298d1387d98096620b81b27724e70766c Author: Tony Cook <[email protected]> Date: Wed Dec 3 10:32:20 2014 +1100 TARG slots have no name, and produced undefined value warnings ----------------------------------------------------------------------- Summary of changes: lib/B/Deparse.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/B/Deparse.pm b/lib/B/Deparse.pm index 967ceb4..0e26aca 100644 --- a/lib/B/Deparse.pm +++ b/lib/B/Deparse.pm @@ -1099,7 +1099,7 @@ sub pad_subs { for my $ix (0.. $#names) { for $_ ($names[$ix]) { next if class($_) eq "SPECIAL"; my $name = $_->PVX; - if ($name =~ /^&./) { + if (defined $name && $name =~ /^&./) { my $low = $_->COP_SEQ_RANGE_LOW; my $flags = $_->FLAGS; if ($flags & SVpad_OUR) { @@ -1707,6 +1707,7 @@ sub populate_curcvlex { next; } my $name = $ns[$i]->PVX; + next unless defined $name; my ($seq_st, $seq_en) = ($ns[$i]->FLAGS & SVf_FAKE) ? (0, 999999) -- Perl5 Master Repository
