Merge pull request #3 from briandfoy/p7

Silence some test warnings

Author: atoomic

t/TEST

@@ -117,10 +117,13 @@ my %skip = (
 	    '.svn' => 1,
 	   );
 
-
+{
+no warnings qw(once);
+# this variable is set in t/harness
 if ($::do_nothing) {
     return 1;
 }
+}
 
 $| = 1;
 
@@ -188,7 +191,7 @@ sub _find_files {
 	    next if $skip{$f};
 
 	    my $fullpath = "$dir/$f";
-	    
+
 	    if (-d $fullpath) {
 		_find_files($patt, $fullpath);
 	    } elsif ($f =~ /$patt/) {
@@ -482,7 +485,7 @@ unless (@ARGV) {
     }
     unless ($::core) {
 	_find_tests('porting');
-	_find_tests("lib"); 
+	_find_tests("lib");
     }
     # Config.pm may be broken for make minitest. And this is only a refinement
     # for skipping tests on non-default builds, so it is allowed to fail.

t/opbasic/concat.t

@@ -43,12 +43,15 @@ my ($a, $b, $c) = qw(foo bar);
 
 ok("$a"     eq "foo",    "verifying assign");
 ok("$a$b"   eq "foobar", "basic concatenation");
+{
+no warnings qw(uninitialized);
 ok("$c$a$c" eq "foo",    "concatenate undef, fore and aft");
+}
 
 # Okay, so that wasn't very challenging.  Let's go Unicode.
 
 {
-    # bug id 20000819.004 (#3761) 
+    # bug id 20000819.004 (#3761)
     my $dx;
     $_ = $dx = "\x{10f2}";
     s/($dx)/$dx$1/;
@@ -77,12 +80,16 @@ ok("$c$a$c" eq "foo",    "concatenate undef, fore and aft");
     my $a;
     $a .= "\x{1ff}";
     ok($a eq  "\x{1ff}", "bug id 20000901.092 (#4184), undef left");
-    $a .= undef;
-    ok($a eq  "\x{1ff}", "bug id 20000901.092 (#4184), undef right");
+    {
+        no warnings qw(uninitialized);
+        $a .= undef;
+        ok($a eq  "\x{1ff}", "bug id 20000901.092 (#4184), undef right");
+    }
 }
 
 {
     # ID 20001020.006 (#4484)
+    no warnings qw(void uninitialized);
 
     "x" =~ /(.)/; # unset $2
 
@@ -96,6 +103,7 @@ ok("$c$a$c" eq "foo",    "concatenate undef, fore and aft");
     ok(!$@, "bug id 20001020.006 (#4484), right");
 
     my $pi;
+    no warnings qw(once);
     *pi = \undef;
     # This bug existed earlier than the $2 bug, but is fixed with the same
     # patch. Without the fix this 5.7.0 would also croak:
@@ -126,6 +134,7 @@ sub beq { use bytes; $_[0] eq $_[1]; }
 }
 
 {
+    no warnings qw(void);
     my $a; ($a .= 5) . 6;
     ok($a == 5, '($a .= 5) . 6 - present since 5.000');
 }
@@ -761,8 +770,9 @@ ok(ref(CORE::state $y = "a $o b") eq 'o',
     $s->($h{foo});
     is($h{foo}, "ab", "PVLV");
 
-    # assigning a string to a typeglob creates an alias    
+    # assigning a string to a typeglob creates an alias
     no strict;
+    no warnings qw(void once);
     $Foo = 'myfoo';
     *Bar = ("F" . $o . $o);
     is($Bar, "myfoo", '*Bar = "Foo"');
@@ -782,6 +792,7 @@ ok(ref(CORE::state $y = "a $o b") eq 'o',
 
 {
     my $foo = "foo";
+    no warnings qw(void uninitialized);
     my $a . $foo; # weird but legal
     is($a, '', 'my $a . $foo');
     my $b; $b .= $foo;

t/re/reg_eval_scope.t

@@ -101,7 +101,7 @@ CODE
     "ba" =~ /b${\do { package baz; qr|(?{ $::pack = __PACKAGE__ })a| }}/;
     is $pack, 'baz', '/text$qr/ inherits package';
     "ba" =~ m+b${\do { use re "/i"; qr|(?{ $::re = qr-- })a| }}+;
-    is $re, '(?^i:)', '/text$qr/ inherits pragmata';    
+    is $re, '(?^i:)', '/text$qr/ inherits pragmata';
 
     {
       use re 'eval';
@@ -226,7 +226,7 @@ CODE
 
 
 {
-    local $::TODO = "goto doesn't yet work in pseduo blocks";
+    local $::TODO = "goto doesn't yet work in pseudo blocks";
 fresh_perl_is <<'CODE',
 my $a=4; my $b=5;
 "a" =~ /(?{ goto FOO; print "X"; FOO: print "Y"; })a/;
@@ -355,13 +355,13 @@ SKIP: {
 # [perl #113928] caller behaving unexpectedly in re-evals
 #
 # make sure __SUB__ within a code block returns something safe.
-# NB waht it actually returns is subject to change
+# NB what it actually returns is subject to change
 
 {
 
     my $s;
 
-    sub f1 { /(?{ $s = CORE::__SUB__; })/ }
+    sub f1 { '' =~ /(?{ $s = CORE::__SUB__; })/ }
     f1();
     is ($s, \&f1, '__SUB__ direct');
 

t/re/regexp_qr_embed_thr.t

@@ -7,7 +7,10 @@ skip_all_without_config('useithreads');
 skip_all_if_miniperl("no dynamic loading on miniperl, no threads");
 require threads;
 
+{
+no warnings qw(once);
 $::qr = 1;
 $::qr_embed_thr = 1;
+}
 
 require './re/regexp.t';

t/re/subst.t

@@ -298,12 +298,12 @@ my %MK = (
     E     => '$(F)', F=>'p $(G) q', G => 'HHHHH',	# short->long
     DIR => '$(UNDEFINEDNAME)/xxx',
 );
-sub var { 
+sub var {
     my($var,$level) = @_;
     return "\$($var)" unless exists $MK{$var};
     return exp_vars($MK{$var}, $level+1); # can recurse
 }
-sub exp_vars { 
+sub exp_vars {
     my($str,$level) = @_;
     $str =~ s/\$\((\w+)\)/var($1, $level+1)/ge; # can recurse
     #warn "exp_vars $level = '$str'\n";
@@ -389,8 +389,8 @@ $_ = 'a' x 6;
 $snum = s/a(?{})//g;
 ok( $_ eq '' && $snum == 6 );
 
-$_ = 'x' x 20; 
-$snum = s/(\d*|x)/<$1>/g; 
+$_ = 'x' x 20;
+$snum = s/(\d*|x)/<$1>/g;
 $foo = '<>' . ('<x><>' x 20) ;
 ok( $_ eq $foo && $snum == 41 );
 
@@ -466,7 +466,7 @@ substr($pv2,0,1) = "\x{100}";
 is($pv1, $pv2);
 
 {
-    {   
+    {
 	# Gregor Chrupala <[email protected]>
 	use utf8;
 	$a = 'Espa&ntilde;a';
@@ -585,7 +585,7 @@ is("<$_> <$s>", "<> <4>", "[perl #7806]");
 
 # [perl #19048] Coredump in silly replacement
 {
-    local $^W = 0;
+    no warnings qw(uninitialized);
     $_="abcdef\n";
     s!.!!eg;
     is($_, "\n", "[perl #19048]");
@@ -829,7 +829,7 @@ fresh_perl_is( '$_="abcdefg123456"; s/(?<=...\G)?(\d)/($1)/; print' => 'abcdefg(
    $output, "CCCGGG<   ><  >< ><   ><  >< >",
   's/// sets PL_curpm for each iteration even when the RHS has set it'
  );
- 
+
  s/C/$a{m\G\}/;
  is(
   "$&", G =>