diff options
| author | Robin Houston <robin@cpan.org> | 2001-04-17 23:37:42 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-17 20:47:56 +0000 |
| commit | 217aba5dab95af4a7698f230c39647790d2e75b6 (patch) | |
| tree | 85a71fcbf7b2adcf5a68fa14fa2148f079bc55e3 /ext/B | |
| parent | 746698c5cdd2d4018ecb993f14f3e3d945860a1e (diff) | |
| download | perl-217aba5dab95af4a7698f230c39647790d2e75b6.tar.gz | |
Re: Deparse - parenthesise args to undeclared subs
Message-ID: <20010417223742.A6681@puffinry.freeserve.co.uk>
p4raw-id: //depot/perl@9732
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B/Deparse.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index cdb6fa6c23..2a76d9ea22 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 { |