VMS perl doesn't implement fork(), so don't run the TLSProxy tests there

[openssl.git] / test / recipes / 70-test_sslsessiontick.t

diff --git a/test/recipes/70-test_sslsessiontick.t b/test/recipes/70-test_sslsessiontick.t
index a7a450ab58edd8cb0974d9e1aabdd63e0016097b..4cac25522d29e80d692af841844a9111b285be88 100755 (executable)
--- a/test/recipes/70-test_sslsessiontick.t
+++ b/test/recipes/70-test_sslsessiontick.t
@@ -60,8 +60,11 @@ use File::Temp qw(tempfile);
 my $test_name = "test_sslsessiontick";
 setup($test_name);
 
+plan skip_all => "TLSProxy isn't usable on $^O"
+    if $^O =~ /^VMS$/;
+
 plan skip_all => "$test_name can only be performed with OpenSSL configured shared"
-    unless (map { chomp; s/^SHARED_LIBS=\s*//; $_ }
+    unless (map { s/\R//; s/^SHARED_LIBS=\s*//; $_ }
            grep { /^SHARED_LIBS=/ }
            do { local @ARGV = ( top_file("Makefile") ); <> })[0] ne "";