From: Robin Houston <robin@cpan.org>
Date: Tue, 17 Apr 2001 22:37:42 +0000 (+0100)
Subject: Re: Deparse - parenthesise args to undeclared subs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=217aba5dab95af4a7698f230c39647790d2e75b6;p=p5sagit%2Fp5-mst-13.2.git

Re: Deparse - parenthesise args to undeclared subs
Message-ID: <20010417223742.A6681@puffinry.freeserve.co.uk>

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

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index cdb6fa6..2a76d9e 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -389,6 +389,9 @@ sub init {
 
     $self->{'arybase'}  = $self->{'ambient_arybase'};
     $self->{'warnings'} = $self->{'ambient_warnings'};
+
+    # also a convenient place to clear out subs_declared
+    delete $self->{'subs_declared'};
 }
 
 sub compile {