From 3b099a7fe6ef576ff433ea8cb60431d2d3dfcc2b Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Sun, 24 May 2020 13:04:47 -0600
Subject: t/re/pat_advanced.t: Adapt for sl-o-o-w boxes

On some slow smokers, this test times out.  There is an existing
mechanism which allows a smoker to compensate for this, but which was
not being used by this test file.  Use it.
---
 t/re/pat_advanced.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 't/re/pat_advanced.t')

diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t
index 21bdb8ca15..b5c7f1cab4 100644
--- a/t/re/pat_advanced.t
+++ b/t/re/pat_advanced.t
@@ -2390,7 +2390,7 @@ EOF
     TODO: {   # Was looping
         todo_skip('Triggers thread clone SEGV. See #86550')
 	  if $::running_as_thread && $::running_as_thread;
-        watchdog(10);   # Use a bigger value for busy systems
+        watchdog(10 * ($ENV{PERL_TEST_TIME_OUT_FACTOR} || 1));
         like("\x{00DF}", qr/[\x{1E9E}_]*/i, "\"\\x{00DF}\" =~ /[\\x{1E9E}_]*/i was looping");
     }
 
-- 
cgit v1.2.1