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 more than two dozen 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 this enables such a test to
properly work.

Author: khwilliamson

dist/IO/t/io_multihomed.t

@@ -117,3 +117,5 @@ if (my $pid = fork()) {
 } else {
     die;
 }
+
+watchdog(0);

dist/IO/t/io_udp.t

@@ -99,6 +99,8 @@ is($buf, 'FOObar');
     }
 }
 
+watchdog(0);
+
 exit(0);
 
 # EOF

dist/threads-shared/t/wait.t

@@ -335,6 +335,8 @@ SYNCH_REFS: {
 
 } # -- SYNCH_REFS block
 
+Test::watchdog(0);
+
 # Done
 exit(0);
 

dist/threads-shared/t/waithires.t

@@ -368,6 +368,8 @@ SYNCH_REFS: {
 
 } # -- SYNCH_REFS block
 
+Test::watchdog(0);
+
 # Done
 exit(0);
 

dist/threads/t/free.t

@@ -209,6 +209,8 @@ sub threading_3 {
 }
 ok($COUNT == 2, "Done - $COUNT threads");
 
+Test::watchdog(0);
+
 exit(0);
 
 # EOF

dist/threads/t/free2.t

@@ -333,6 +333,8 @@ TEST_STARTS_HERE:
 }
 ok($COUNT == 17, "Done - $COUNT threads");
 
+Test::watchdog(0);
+
 exit(0);
 
 # EOF

dist/threads/t/libc.t

@@ -49,6 +49,8 @@ for (1..$i) {
     is($threads[$_]->join(), 0, 'localtime() thread-safe');
 }
 
+watchdog(0);
+
 exit(0);
 
 # EOF

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