Skip to content

Commit 2f77b97

Browse files
committed
t/test.pl: Outdent a wrongly indented line
1 parent d44172c commit 2f77b97

File tree

1 file changed

+6
-3
lines changed

1 file changed

+6
-3
lines changed

t/test.pl

Lines changed: 6 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1731,10 +1731,12 @@ sub warning_like {
17311731
#
17321732
# NOTE: If the test file uses 'threads', then call the watchdog() function
17331733
# _AFTER_ the 'threads' module is loaded.
1734+
{ # Closure
1735+
my $watchdog;
1736+
my $watchdog_thread;
1737+
17341738
sub watchdog ($;$)
17351739
{
1736-
CORE::state $watchdog;
1737-
CORE::state $watchdog_thread;
17381740
my $timeout = shift;
17391741

17401742
# If cancelling, use the state variables to know which method was used to
@@ -1768,7 +1770,7 @@ ($;$)
17681770
|| $ENV{PERL_TEST_TIMEOUT_FACTOR}
17691771
|| 1;
17701772
$timeout_factor = 1 if $timeout_factor < 1;
1771-
$timeout_factor = $1 if $timeout_factor =~ /^(\d+)$/;
1773+
$timeout_factor = $1 if $timeout_factor =~ /^(\d+)$/;
17721774

17731775
# Valgrind slows perl way down so give it more time before dying.
17741776
$timeout_factor = 10 if $timeout_factor < 10 && $ENV{PERL_VALGRIND};
@@ -1937,6 +1939,7 @@ ($;$)
19371939
};
19381940
}
19391941
}
1942+
} # End closure
19401943

19411944
# Orphaned Docker or Linux containers do not necessarily attach to PID 1. They might attach to 0 instead.
19421945
sub is_linux_container {

0 commit comments

Comments
 (0)