Script Run: Scripts couldn't start with Common

[perl5.git] / t / re / fold_grind.t

diff --git a/t/re/fold_grind.t b/t/re/fold_grind.t
index bf5c9fd..0665517 100644 (file)
--- a/t/re/fold_grind.t
+++ b/t/re/fold_grind.t
@@ -11,7 +11,10 @@ BEGIN {
     if ($^O eq 'dec_osf') {
       skip_all("$^O cannot handle this test");
     }
-    watchdog(5 * 60);
+    my $time_out_factor = $ENV{PERL_TEST_TIME_OUT_FACTOR} || 1;
+    $time_out_factor = 1 if $time_out_factor < 1;
+
+    watchdog(5 * 60 * $time_out_factor);
     require './loc_tools.pl';
 }