Shut up "used only once" warnings.

Not very elegant, but it avoids using $^W or warnings.pm.

1 files changed, 6 insertions, 2 deletions

diff --git a/t/test.pl b/t/test.pl
index 2bf429c11c..eeb71ef8cc 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -546,7 +546,8 @@ sub runperl {
     return $result;
 }
 
-*run_perl = \&runperl; # Nice alias.
+# Nice alias
+*run_perl = *run_perl = \&runperl; # shut up "used only once" warning
 
 sub DIE {
     _print_stderr "# @_\n";
@@ -824,9 +825,12 @@ sub watchdog ($;$)
         goto WATCHDOG_VIA_ALARM;
     }
 
+    # shut up use only once warning
+    my $threads_on = $threads::threads && $threads::threads;
+
     # Don't use a watchdog process if 'threads' is loaded -
     #   use a watchdog thread instead
-    if (! $threads::threads) {
+    if (!$threads_on) {
 
         # On Windows and VMS, try launching a watchdog process
         #   using system(1, ...) (see perlport.pod)