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 (file)
--- 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 {