From 7a504c17cb901e7458f57a4cf697d818f06ede86 Mon Sep 17 00:00:00 2001
From: Alexander Bluhm <alexander.bluhm@gmx.net>
Date: Mon, 1 Jan 2024 16:08:54 +0100
Subject: [PATCH] Disable timeout signal before going to next test in perform
 and netlink.

---
 netlink.pl | 4 +++-
 perform.pl | 4 +++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/netlink.pl b/netlink.pl
index 6417774e..3599f4e2 100755
--- a/netlink.pl
+++ b/netlink.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 # Copyright (c) 2022 Moritz Buhl <mbuhl@genua.de>
-# Copyright (c) 2018-2023 Alexander Bluhm <bluhm@genua.de>
+# Copyright (c) 2018-2024 Alexander Bluhm <bluhm@genua.de>
 #
 # 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
index 8c051c78..115a2e87 100755
--- a/perform.pl
+++ b/perform.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# Copyright (c) 2018-2023 Alexander Bluhm <bluhm@genua.de>
+# Copyright (c) 2018-2024 Alexander Bluhm <bluhm@genua.de>
 #
 # 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;
 }