From 72bf2a01a2c7f318f7c1eda8affafe00278cd8a0 Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Sun, 23 Apr 2023 09:32:45 -0600
Subject: [PATCH] op/sub.t: Cancel watchdog when done

A watchdog timer should be cancelled after the test(s) it guards.
Otherwise, when someone adds new tests after it in the file, and doesn't
notice that the tests are under the watchdog, those new tests can fail.
These failures may be intermittent, only happening under heavy load.
---
 t/op/sub.t | 1 +
 1 file changed, 1 insertion(+)

diff --git a/t/op/sub.t b/t/op/sub.t
index b2839c6a40bc..a99dc52b6d5f 100644
--- a/t/op/sub.t
+++ b/t/op/sub.t
@@ -426,6 +426,7 @@ eval '
    CORE::state sub b; sub d { sub b {} sub d }
  ';
 eval '()=%e; sub e { sub e; eval q|$x| } e;';
+watchdog 0;
 
 fresh_perl_like(
     q#<s,,$0[sub{m]]]],}>0,shift#,