Re: [PATCH blead] Re: [perl #3269] no warnings "foo" without "use warnings" turns...

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

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 1f00928..081fe16 100644 (file)
--- 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

diff --git a/t/op/inc.t b/t/op/inc.t
index 5f05642..7d6ebab 100755 (executable)
--- a/t/op/inc.t
+++ b/t/op/inc.t
@@ -160,7 +160,7 @@ check_same (\%orig, \%postdec);
 
 {
     no warnings 'uninitialized';
-    my $x, $y;
+    my ($x, $y);
     eval {
        $y ="$x\n";
        ++$x;
@@ -168,7 +168,7 @@ check_same (\%orig, \%postdec);
     ok($x == 1, $x);
     ok($@ eq '', $@);
 
-    my $p, $q;
+    my ($p, $q);
     eval {
        $q ="$p\n";
        --$p;