From: Steve Hay <SteveHay@planit.com>
Date: Fri, 15 Jul 2005 15:35:55 +0000 (+0000)
Subject: Re: [PATCH blead] Re: [perl #3269] no warnings "foo" without "use warnings" turns... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=840378f54dd758264f790e82d48dc9ba0f3485f3;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 1f00928..081fe16 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
diff --git a/t/op/inc.t b/t/op/inc.t
index 5f05642..7d6ebab 100755
--- 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;