From bb8f15e2a7e55bef6c2e44a0b4a530add030befc Mon Sep 17 00:00:00 2001 From: Amitai Schlair Date: Mon, 6 Oct 2014 16:31:52 -0400 Subject: [PATCH] simplify IPC::Run check (same behavior) --- t/relativity.t | 22 +++++++++------------- 1 file changed, 9 insertions(+), 13 deletions(-) diff --git a/t/relativity.t b/t/relativity.t index 300c6e61d..7e1e7049f 100755 --- a/t/relativity.t +++ b/t/relativity.t @@ -2,21 +2,17 @@ use warnings; use strict; -use Cwd qw(getcwd); -use Errno qw(ENOENT); - -BEGIN { - if (!eval q{ +use Test::More; +plan(skip_all => "IPC::Run not available") + unless eval q{ use IPC::Run qw(run); 1; - }) { - eval q{use Test::More skip_all => "IPC::Run not available"}; - } - else { - eval q{use Test::More}; - } - use_ok("IkiWiki"); -} + }; + +use IkiWiki; + +use Cwd qw(getcwd); +use Errno qw(ENOENT); my $PERL5LIB = 'blib/lib:blib/arch'; my $pwd = getcwd(); -- 2.39.5