File tree Expand file tree Collapse file tree 1 file changed +6
-3
lines changed Expand file tree Collapse file tree 1 file changed +6
-3
lines changed Original file line number Diff line number Diff line change @@ -1731,10 +1731,12 @@ sub warning_like {
1731
1731
#
1732
1732
# NOTE: If the test file uses 'threads', then call the watchdog() function
1733
1733
# _AFTER_ the 'threads' module is loaded.
1734
+ { # Closure
1735
+ my $watchdog ;
1736
+ my $watchdog_thread ;
1737
+
1734
1738
sub watchdog ($;$)
1735
1739
{
1736
- CORE::state $watchdog ;
1737
- CORE::state $watchdog_thread ;
1738
1740
my $timeout = shift ;
1739
1741
1740
1742
# If cancelling, use the state variables to know which method was used to
@@ -1768,7 +1770,7 @@ ($;$)
1768
1770
|| $ENV {PERL_TEST_TIMEOUT_FACTOR }
1769
1771
|| 1;
1770
1772
$timeout_factor = 1 if $timeout_factor < 1;
1771
- $timeout_factor = $1 if $timeout_factor =~ / ^(\d +)$ / ;
1773
+ $timeout_factor = $1 if $timeout_factor =~ / ^(\d +)$ / ;
1772
1774
1773
1775
# Valgrind slows perl way down so give it more time before dying.
1774
1776
$timeout_factor = 10 if $timeout_factor < 10 && $ENV {PERL_VALGRIND };
@@ -1937,6 +1939,7 @@ ($;$)
1937
1939
};
1938
1940
}
1939
1941
}
1942
+ } # End closure
1940
1943
1941
1944
# Orphaned Docker or Linux containers do not necessarily attach to PID 1. They might attach to 0 instead.
1942
1945
sub is_linux_container {
You can’t perform that action at this time.
0 commit comments