reorder to before SKIP

nmisch · Mar 1, 2024 · 2c416f9 · 2c416f9
1 parent dac4fb0
commit 2c416f9
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/t/eintr.t b/t/eintr.t
@@ -10,7 +10,6 @@ eintr.t - Test select() failing with EINTR
 
 use strict;
 use warnings;
-use Time::HiRes qw(gettimeofday tv_interval);
 
 BEGIN {
     $|  = 1;
@@ -25,6 +24,14 @@ BEGIN {
 use Test::More;
 use IPC::Run qw( start run );
 
+use Time::HiRes qw(gettimeofday tv_interval);
+for my $v (0, 1) {
+  local $ENV{SIG_WORKAROUND_SUPPRESS} = $v;
+  my $before = [gettimeofday];
+  run([qw(sleep 0.7)]);
+  diag 'duration: ' . tv_interval($before, [gettimeofday]);
+}
+
 my $got_usr1 = 0;
 $SIG{USR1} = sub { $got_usr1++ };
 
@@ -60,10 +67,3 @@ is $got_usr1, 2, 'got USR1 from the kid';
 
 $harness->kill_kill;
 $harness->finish;
-
-for my $v (0, 1) {
-  local $ENV{SIG_WORKAROUND_SUPPRESS} = $v;
-  my $before = [gettimeofday];
-  run([qw(sleep 0.7)]);
-  diag 'duration: ' . tv_interval($before, [gettimeofday]);
-}