diff options
author | Nicolas R <nicolas@atoomic.org> | 2020-09-01 16:10:25 -0600 |
---|---|---|
committer | Todd Rinaldo <toddr@cpan.org> | 2020-09-15 20:46:27 -0500 |
commit | 544e14500f76f6a28da0d5b423ccc23f22723777 (patch) | |
tree | 070c89d526ad7aa02fa25439aa767c0e8e3c97e0 /t | |
parent | e63fbf7306f21629ae4769a6afed89212846e8b5 (diff) | |
download | perl-544e14500f76f6a28da0d5b423ccc23f22723777.tar.gz |
fix t/win32/signal.t
Make sure Config is loaded before using %Config
which is required when using 'strict vars'.
Diffstat (limited to 't')
-rw-r--r-- | t/win32/signal.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/t/win32/signal.t b/t/win32/signal.t index 143327ab45..8aecfec2b8 100644 --- a/t/win32/signal.t +++ b/t/win32/signal.t @@ -15,6 +15,9 @@ BEGIN { } } +use strict; +use Config; + skip_all("requires compilation with the fork emulation") unless $Config{'d_pseudofork'}; @@ -23,8 +26,6 @@ skip_all("requires compilation with the fork emulation") # manual test counting because the forks confuse test.pl print "1..4\n"; -use Config; - # find a safe signal, the implementation shouldn't be doing anything # funky with NUMdd signals my ($sig) = grep /^NUM/, split ' ', $Config{sig_name}; |