From: Robin Houston <robin@cpan.org>
Date: Tue, 24 Apr 2001 15:51:18 +0000 (+0100)
Subject: Re: [ID 20010423.006] Test failed in perl@9794
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0f2fe21d8bfa460171ca8393e903fa1e35b90278;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);