pat_re_eval.t: remove 'no warnings'

Now the the closure behaviour of code blocks within regexes is mostly
fixes, remove the

    no warnings qw(uninitialized closure);

that protected many of the closure tests.

This also showed up that one of my recent tests didn't realise
the whose test file is wrapped in a sub, so my test code destructor
looked like

    sub run_tests {
	...
	my $d;
	sub DESTRUCTOR { $d++ }
	...
    }

so fix that test to remove the closure warning.

1 files changed, 6 insertions, 9 deletions

diff --git a/t/re/pat_re_eval.t b/t/re/pat_re_eval.t
index 3e094d5359..a498c9e46f 100644
--- a/t/re/pat_re_eval.t
+++ b/t/re/pat_re_eval.t
@@ -367,8 +367,6 @@ sub run_tests {
 	    ok($_[0], $_[1]);
 	}
 
-	# XXX remove this when TODOs are fixed
-	no warnings qw(uninitialized closure);
 
 	# if the pattern string gets utf8 upgraded while concatenating,
 	# make sure a literal code block is still detected (by still
@@ -586,24 +584,23 @@ sub run_tests {
 	# and make sure things are freed at the right time
 
 	{
-	    package Foo99;
-	    my $d = 0;
-	    sub DESTROY { $d++ }
 
 	    {
+		sub Foo99::DESTROY { $Foo99::d++ }
+		$Foo99::d = 0;
 		my $r1;
 		{
-		    my $x = bless [1];
+		    my $x = bless [1], 'Foo99';
 		    $r1 = eval 'qr/(??{$x->[0]})/';
 		}
 		my $r2 = eval 'qr/a$r1/';
 		my $x = 2;
-		::ok(eval '"a1" =~ qr/^$r2$/', "match while in scope");
+		ok(eval '"a1" =~ qr/^$r2$/', "match while in scope");
 		# make sure PL_reg_curpm isn't holding on to anything
 		"a" =~ /a(?{1})/;
-		::is($d, 0, "before scope exit");
+		is($Foo99::d, 0, "before scope exit");
 	    }
-	    ::is($d, 1, "after scope exit");
+	    ::is($Foo99::d, 1, "after scope exit");
 	}
 
 	# forward declared subs should Do The Right Thing with any anon CVs