Improve Capture::Tiny discovery in t/17-ctl.t

diff --git a/t/17-ctl.t b/t/17-ctl.t
index 2adf60de8a858301b17a5fe621cb35163e1d906b..2500a9454f1fe2e035e9487ac67a3ec5131d6493 100644 (file)
--- a/t/17-ctl.t
+++ b/t/17-ctl.t
@@ -226,13 +226,19 @@ sub run_perl {
 
 my $has_capture_tiny = do {
  local $@;
- eval 'use Capture::Tiny 0.08 (); 1'
+ eval {
+  require Capture::Tiny;
+  Capture::Tiny->VERSION('0.08');
+ }
 };
 if ($has_capture_tiny) {
- my $output = Capture::Tiny::capture_merged(sub { run_perl <<' CODE' });
+ local $@;
+ my $output = eval {
+  Capture::Tiny::capture_merged(sub { run_perl <<'  CODE' });
 print STDOUT "pants\n";
 print STDERR "trousers\n";
- CODE
+  CODE
+ };
  unless (defined $output and $output =~ /pants/ and $output =~ /trousers/) {
   $has_capture_tiny = 0;
  }