diff options
| author | Robin Houston <robin@cpan.org> | 2001-04-24 16:51:18 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-24 13:54:32 +0000 |
| commit | 0f2fe21d8bfa460171ca8393e903fa1e35b90278 (patch) | |
| tree | 64665ab39d016ce81b85060c92f8577c7a4cc8bc /ext | |
| parent | 973abda3de19f81f0355443e0fb0b20961973762 (diff) | |
| download | perl-0f2fe21d8bfa460171ca8393e903fa1e35b90278.tar.gz | |
Re: [ID 20010423.006] Test failed in perl@9794
Message-ID: <20010424155118.A22913@puffinry.freeserve.co.uk>
p4raw-id: //depot/perl@9815
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Deparse.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index e9f47f7c9f..8a3ae789a0 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -1097,6 +1097,10 @@ sub populate_curcvlex { for (my $i=0; $i<@ns; ++$i) { next if class($ns[$i]) eq "SPECIAL"; + if (class($ns[$i]) eq "PV") { + # Probably that pesky lexical @_ + next; + } my $name = $ns[$i]->PVX; my $seq_st = $ns[$i]->NVX; my $seq_en = int($ns[$i]->IVX); |