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

[Rick Delaney]

On Wed, Jul 13, 2005 at 03:57:39PM -0700, Michael G Schwern wrote:
> 
> I think this patch does the same thing without the deprecated syntax.

Thanks, that saves me doing it.

> I wonder what other accidentally supressed warnings this is going to
> dig up.

Not too many from `make test`.  Just these:

    t/op/inc..................................
    Parentheses missing around "my" list at op/inc.t line 163.
    Parentheses missing around "my" list at op/inc.t line 171.
    Useless use of a variable in void context at op/inc.t line 163.
    Useless use of a variable in void context at op/inc.t line 171.

Patch after .sig.

-- 
Rick Delaney
[EMAIL PROTECTED]


diff -ruN perl-current/t/op/inc.t perl-current-dev/t/op/inc.t
--- perl-current/t/op/inc.t     2005-07-09 12:13:42.000000000 -0400
+++ perl-current-dev/t/op/inc.t 2005-07-13 20:17:39.315185314 -0400
@@ -160,7 +160,7 @@
 
 {
     no warnings 'uninitialized';
-    my $x, $y;
+    my ($x, $y);
     eval {
        $y ="$x\n";
        ++$x;
@@ -168,7 +168,7 @@
     ok($x == 1, $x);
     ok($@ eq '', $@);
 
-    my $p, $q;
+    my ($p, $q);
     eval {
        $q ="$p\n";
        --$p;