diff options
-rw-r--r-- | Makefile.PL | 3 | ||||
-rw-r--r-- | t/nntp_ssl.t | 6 | ||||
-rw-r--r-- | t/pop3_ssl.t | 6 | ||||
-rw-r--r-- | t/smtp_ssl.t | 6 |
4 files changed, 17 insertions, 4 deletions
diff --git a/Makefile.PL b/Makefile.PL index fdfbc04..375e1c9 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -173,7 +173,8 @@ MAIN: { }, TEST_REQUIRES => { - 'Cwd' => '0' + 'Config' => '0', + 'Cwd' => '0' }, PREREQ_PM => { diff --git a/t/nntp_ssl.t b/t/nntp_ssl.t index e4b4bcb..55cdc16 100644 --- a/t/nntp_ssl.t +++ b/t/nntp_ssl.t @@ -5,6 +5,7 @@ use 5.008001; use strict; use warnings; +use Config; use File::Temp 'tempfile'; use Net::NNTP; use Test::More; @@ -16,7 +17,10 @@ my $parent = 0; plan skip_all => "no SSL support found in Net::NNTP" if ! Net::NNTP->can_ssl; plan skip_all => "fork not supported on this platform" - if grep { $^O =~m{$_} } qw(MacOS VOS vmesa riscos amigaos); + unless $Config::Config{d_fork} || $Config::Config{d_pseudofork} || + (($^O eq 'MSWin32' || $^O eq 'NetWare') and + $Config::Config{useithreads} and + $Config::Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/); plan skip_all => "incomplete or version of IO::Socket::SSL" if ! eval { require IO::Socket::SSL::Utils }; diff --git a/t/pop3_ssl.t b/t/pop3_ssl.t index 3ba74af..b7b433e 100644 --- a/t/pop3_ssl.t +++ b/t/pop3_ssl.t @@ -5,6 +5,7 @@ use 5.008001; use strict; use warnings; +use Config; use File::Temp 'tempfile'; use Net::POP3; use Test::More; @@ -16,7 +17,10 @@ my $parent = 0; plan skip_all => "no SSL support found in Net::POP3" if ! Net::POP3->can_ssl; plan skip_all => "fork not supported on this platform" - if grep { $^O =~m{$_} } qw(MacOS VOS vmesa riscos amigaos); + unless $Config::Config{d_fork} || $Config::Config{d_pseudofork} || + (($^O eq 'MSWin32' || $^O eq 'NetWare') and + $Config::Config{useithreads} and + $Config::Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/); plan skip_all => "incomplete or to old version of IO::Socket::SSL" if ! eval { require IO::Socket::SSL diff --git a/t/smtp_ssl.t b/t/smtp_ssl.t index b7a533f..00b67e5 100644 --- a/t/smtp_ssl.t +++ b/t/smtp_ssl.t @@ -5,6 +5,7 @@ use 5.008001; use strict; use warnings; +use Config; use File::Temp 'tempfile'; use Net::SMTP; use Test::More; @@ -16,7 +17,10 @@ my $parent = 0; plan skip_all => "no SSL support found in Net::SMTP" if ! Net::SMTP->can_ssl; plan skip_all => "fork not supported on this platform" - if grep { $^O =~m{$_} } qw(MacOS VOS vmesa riscos amigaos); + unless $Config::Config{d_fork} || $Config::Config{d_pseudofork} || + (($^O eq 'MSWin32' || $^O eq 'NetWare') and + $Config::Config{useithreads} and + $Config::Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/); plan skip_all => "incomplete or to old version of IO::Socket::SSL" if ! eval { require IO::Socket::SSL |