Turn off watchdog when done in tests

If you set a watchdog timer, you should clear it when its no longer
needed.  Otherwise it can go off, aborting your test script.

In these twenty test files, it hasn't mostly been a problem because the
script finishes before the timer goes off.  But I bet that some
heisenbugs have been the result of not clearing it.

It actually shouldn't be necessary to clear the timer when that is the
final statement in the test file, but we may want to add a porting test
that makes sure watchdogs are cleared, and always adding a clear enables
such a test to properly work.

Author: khwilliamson

ext/XS-APItest/t/keyword_plugin_threads.t

@@ -26,6 +26,8 @@ for my $t (1 .. 3) {
     })->join;
 }
 
+watchdog(0);
+
 print "all is well\n";
 ----
 all is well

ext/re/t/re_funcs_u.t

@@ -128,7 +128,7 @@ if ('1234'=~/(?:(?<A>\d)|(?<C>!))(?<B>\d)(?<A>\d)(?<B>\d)/){
 # New tests go here ^^^
 
     { # Keep these tests last, as whole script will be interrupted if times out
-        # Bug #72998; this can loop 
+        # Bug #72998; this can loop
         watchdog(10);
         eval '"\x{100}\x{FB00}" =~ /\x{100}\N{U+66}+/i';
         pass("Didn't loop");
@@ -137,6 +137,7 @@ if ('1234'=~/(?:(?<A>\d)|(?<C>!))(?<B>\d)(?<A>\d)(?<B>\d)/){
         no warnings;    # Because the 8 may be warned on
         eval 'qr/\18/';
         pass(q"qr/\18/ didn't loop");
+        watchdog(0);
     }
 
 done_testing();

t/io/closepid.t

@@ -42,3 +42,5 @@ SKIP:
     kill $killsig, $pid;
     open STDIN, "<&", $savein;
 }
+
+watchdog(0);

t/io/openpid.t

@@ -102,3 +102,4 @@ print "# waiting for process $pid4 to exit\n";
 $reap_pid = waitpid $pid4, 0;
 is( $reap_pid, $pid4, 'fourth process reaped' );
 
+watchdog(0);

t/mro/package_aliases.t

@@ -300,6 +300,7 @@ watchdog 3;
 *foo:: = \%::;
 *Acme::META::Acme:: = \*Acme::; # indirect self-reference
 pass("mro_package_moved and self-referential packages");
+watchdog 0;
 
 # Deleting a glob whose name does not indicate its location in the symbol
 # table but which nonetheless *is* in the symbol table.

t/mro/package_aliases_utf8.t

@@ -368,6 +368,7 @@ watchdog 3;
 *ᕘ:: = \%::;
 *Aᶜme::Mῌ::Aᶜme:: = \*Aᶜme::; # indirect self-reference
 pass("mro_package_moved and self-referential packages");
+watchdog 0;
 
 # Deleting a glob whose name does not indicate its location in the symbol
 # table but which nonetheless *is* in the symbol table.

t/op/sigdispatch.t

@@ -167,3 +167,5 @@ like $@, qr/No such hook: __DIE__\\0whoops at/;
     is($int_called, 1);
     is($@, "died");
 }
+
+watchdog(0);

t/op/signame_canonical.t

@@ -73,3 +73,5 @@ foreach my $dupe (@duplicate_signals) {
     is( $SIG{$canonical_name}, undef, "The signal $canonical_name is cleared after local goes out of scope." );
 }
 
+watchdog(0);
+

t/op/study.t

@@ -158,3 +158,5 @@ TODO: {
     push @got, $_ foreach $a =~ /[^x]d(?{$a .= ''})[^x]d/g;
     is("@got", 'ydyd ydyd', '#92696 $a .= \'\' inside (?{}), $a studied');
 }
+
+watchdog(0);

t/op/threads.t

@@ -149,6 +149,7 @@ watchdog(180, "process");
     $_->join for @t;
     ok(1, '[perl #45053]');
 }
+watchdog(0);
 
 sub matchit {
     is (ref $_[1], "Regexp");