From ac0ab6cec294d01edf2a0a162c58e1712fabaa8b Mon Sep 17 00:00:00 2001 From: Slaven Rezic Date: Thu, 23 Mar 2017 06:34:49 +0000 Subject: [PATCH] 'openssl --help' -> 'openssl help', and skip END block if needed (RT #120701) --- t/10connect-openssl.t | 2 +- t/11listen-openssl.t | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/t/10connect-openssl.t b/t/10connect-openssl.t index 0363b12..7832898 100644 --- a/t/10connect-openssl.t +++ b/t/10connect-openssl.t @@ -13,7 +13,7 @@ use IO::Async::SSL; use POSIX qw( WEXITSTATUS ); -system( "openssl --help >/dev/null 2>&1" ) == 0 or +system( "openssl help >/dev/null 2>&1" ) == 0 or plan skip_all => "no openssl"; my $loop = IO::Async::Loop->new; diff --git a/t/11listen-openssl.t b/t/11listen-openssl.t index 9966e65..f7d03ce 100644 --- a/t/11listen-openssl.t +++ b/t/11listen-openssl.t @@ -14,7 +14,7 @@ use IO::Async::Listener; use POSIX qw( WEXITSTATUS ); -system( "openssl --help >/dev/null 2>&1" ) == 0 or +system( "openssl help >/dev/null 2>&1" ) == 0 or plan skip_all => "no openssl"; my $loop = IO::Async::Loop->new; @@ -64,7 +64,7 @@ my $kid = $loop->spawn_child( close $ssl_rd; close $ssl_wr; -END { kill 'TERM', $kid } +END { kill 'TERM', $kid if defined $kid } my @openssl_lines; $loop->add( my $openssl_stream = IO::Async::Stream->new( -- 2.1.4