Disable timeout signal before going to next test in perform and netlink.

bluhm · Jan 1, 2024 · 7a504c1 · 7a504c1
1 parent 4753412
commit 7a504c1
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/netlink.pl b/netlink.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 # Copyright (c) 2022 Moritz Buhl <[email protected]>
-# Copyright (c) 2018-2023 Alexander Bluhm <[email protected]>
+# Copyright (c) 2018-2024 Alexander Bluhm <[email protected]>
 #
 # Permission to use, copy, modify, and distribute this software for any
 # purpose with or without fee is hereby granted, provided that the above
@@ -195,6 +195,8 @@ sub bad {
     $log->sync() if $log;
     $tr->sync();
     no warnings 'exiting';
+    alarm(0);
+    # the local and eval around the signal handler behave unexpectedly
     next TEST;
 }
 

diff --git a/perform.pl b/perform.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# Copyright (c) 2018-2023 Alexander Bluhm <[email protected]>
+# Copyright (c) 2018-2024 Alexander Bluhm <[email protected]>
 #
 # Permission to use, copy, modify, and distribute this software for any
 # purpose with or without fee is hereby granted, provided that the above
@@ -159,6 +159,8 @@ sub bad {
     $log->sync() if $log;
     $tr->sync();
     no warnings 'exiting';
+    # the local and eval around the signal handler behave unexpectedly
+    alarm(0);
     next TEST;
 }