diff options
| author | Steve Hay <SteveHay@planit.com> | 2005-07-15 15:35:55 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2005-07-15 15:35:55 +0000 |
| commit | 840378f54dd758264f790e82d48dc9ba0f3485f3 (patch) | |
| tree | edcf3757a70c9661aa0960381f3f10a51bfb06bd /ext | |
| parent | 322fd6428c9575b8e35cb16655e86ca0378af1cf (diff) | |
| download | perl-840378f54dd758264f790e82d48dc9ba0f3485f3.tar.gz | |
Re: [PATCH blead] Re: [perl #3269] no warnings "foo" without "use warnings" turns off all warnings.
From: Michael G Schwern <schwern@pobox.com>
Date: Wed, 13 Jul 2005 15:57:39 -0700
Message-ID: <20050713225739.GN24499@windhund.schwern.org>
Subject: Re: [PATCH blead] Re: [perl #3269] no warnings "foo" without "use warnings" turns off all warnings.
From: Rick Delaney <rick@bort.ca>
Date: Wed, 13 Jul 2005 20:24:56 -0400
Message-ID: <20050714002456.GD19090@localhost.localdomain>
p4raw-id: //depot/perl@25153
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Deparse.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index 1f00928d02..081fe16c0c 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -3148,7 +3148,7 @@ sub pp_entersub { no warnings 'uninitialized'; $declared = exists $self->{'subs_declared'}{$kid} || ( - defined &{ %{$self->{'curstash'}."::"}->{$kid} } + defined &{ ${$self->{'curstash'}."::"}{$kid} } && !exists $self->{'subs_deparsed'}{$self->{'curstash'}."::".$kid} && defined prototype $self->{'curstash'}."::".$kid |