Time::HiRes tests: remove bareword filehandles and '1;'

Bareword filehandles have been obsolete since 2000. There is no point in
adding '1;' to scripts; only modules have return values.

Author: mauke

dist/Time-HiRes/t/alarm.t

@@ -11,9 +11,9 @@ use Config;
 my $limit = 0.25; # 25% is acceptable slosh for testing timers
 
 my $xdefine = '';
-if (open(XDEFINE, "<", "xdefine")) {
-    chomp($xdefine = <XDEFINE> || "");
-    close(XDEFINE);
+if (open(my $fh, "<", "xdefine")) {
+    chomp($xdefine = <$fh> || "");
+    close($fh);
 }
 
 my $can_subsecond_alarm =
@@ -224,5 +224,3 @@ SKIP: {
         ok $got == 0 or print("# $got\n");
     }
 }
-
-1;

dist/Time-HiRes/t/clock.t

@@ -97,5 +97,3 @@ SKIP: {
         $clock[2] > $clock[1] &&
         $clock[3] > $clock[2];
 }
-
-1;

dist/Time-HiRes/t/gettimeofday.t

@@ -30,5 +30,3 @@ ok $f - $two[0] < 2 or print("# $f - $two[0] >= 2\n");
 my $r = [Time::HiRes::gettimeofday()];
 my $g = Time::HiRes::tv_interval $r;
 ok $g < 2 or print("# $g\n");
-
-1;

dist/Time-HiRes/t/itimer.t

@@ -66,5 +66,3 @@ print("# at end, i=$i\n");
 is($virt, 0, "time left should be zero");
 
 $SIG{VTALRM} = 'DEFAULT';
-
-1;

dist/Time-HiRes/t/nanosleep.t

@@ -34,5 +34,3 @@ SKIP: {
     skip "flapping test - more than 0.9 sec could be necessary...", 1 if $ENV{CI};
     cmp_ok $d, '<', 0.9 or diag("# slept $d secs $f to $f2\n");
 }
-
-1;

dist/Time-HiRes/t/sleep.t

@@ -15,9 +15,9 @@ SKIP: {
 }
 
 my $xdefine = '';
-if (open(XDEFINE, "<", "xdefine")) {
-    chomp($xdefine = <XDEFINE> || "");
-    close(XDEFINE);
+if (open(my $fh, "<", "xdefine")) {
+    chomp($xdefine = <$fh> || "");
+    close($fh);
 }
 
 my $can_subsecond_alarm =

dist/Time-HiRes/t/stat.t

@@ -22,9 +22,9 @@ my @mtime;
 for (1..5) {
     note "cycle $_";
     Time::HiRes::sleep(rand(0.1) + 0.1);
-    open(X, '>', $$);
-    print X $$;
-    close(X);
+    open(my $fh, '>', $$);
+    print $fh $$;
+    close($fh);
     my($a, $stat, $b) = ("a", [Time::HiRes::stat($$)], "b");
     is $a, "a", "stat stack discipline";
     is $b, "b", "stat stack discipline";
@@ -43,9 +43,9 @@ for (1..5) {
         }
         is_deeply $lstat, $stat, "write: stat and lstat returned same values";
         Time::HiRes::sleep(rand(0.1) + 0.1);
-        open(X, '<', $$);
-        <X>;
-        close(X);
+        open(my $fh, '<', $$);
+        <$fh>;
+        close($fh);
         $stat = [Time::HiRes::stat($$)];
         push @atime, $stat->[8];
         $lstat = [Time::HiRes::lstat($$)];
@@ -88,9 +88,9 @@ SKIP: {
 my $targetname = "tgt$$";
 my $linkname = "link$$";
 SKIP: {
-    open(X, '>', $targetname);
-    print X $$;
-    close(X);
+    open(my $fh, '>', $targetname);
+    print $fh $$;
+    close($fh);
     eval { symlink $targetname, $linkname or die "can't symlink: $!"; };
     skip "can't symlink", 7 if $@ ne "";
     note "compare Time::HiRes::stat with ::lstat";
@@ -111,5 +111,3 @@ SKIP: {
 }
 1 while unlink $linkname;
 1 while unlink $targetname;
-
-1;

dist/Time-HiRes/t/tv_interval.t

@@ -6,5 +6,3 @@ BEGIN { require_ok "Time::HiRes"; }
 
 my $f = Time::HiRes::tv_interval [5, 100_000], [10, 500_000];
 ok abs($f - 5.4) < 0.001 or print("# $f\n");
-
-1;

dist/Time-HiRes/t/ualarm.t

@@ -109,5 +109,3 @@ for my $n (100_000, 1_100_000, 2_200_000, 4_300_000) {
     my $got2 = Time::HiRes::ualarm(0);
     ok $got2 == 0 or print("# $got2\n");
 }
-
-1;

dist/Time-HiRes/t/usleep.t

@@ -75,5 +75,3 @@ SKIP: {
         ok $a < $limit or print("# $msg\n");
     }
 }
-
-1;