Re: [ID 20010423.006] Test failed in perl@9794

Message-ID: <20010424155118.A22913@puffinry.freeserve.co.uk>

p4raw-id: //depot/perl@9815

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index e9f47f7..8a3ae78 100644 (file)
--- 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);