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.

diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t
index 21bdb8c..b5c7f1c 100644 (file)
--- 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");
     }