From: Robin Houston <robin@cpan.org>
Date: Sun, 6 May 2001 16:46:54 +0000 (+0100)
Subject: use Foo (sub {...});
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=80dc07293684d09f68acfbbf09744c13894768c2;p=p5sagit%2Fp5-mst-13.2.git

use Foo (sub {...});
Message-ID: <20010506164654.A6848@penderel>

p4raw-id: //depot/perl@10012
---

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 2f01389..ef367c2 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -271,6 +271,7 @@ sub next_todo {
 sub begin_is_use {
     my ($self, $cv) = @_;
     my $root = $cv->ROOT;
+    local @$self{qw'curcv curcvlex'} = ($cv);
 #require B::Debug;
 #B::walkoptree($cv->ROOT, "debug");
     my $lineseq = $root->first;