This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Capture also the stderr, the message from tar might go there
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 5 Nov 2016 22:58:51 +0000 (18:58 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 5 Nov 2016 23:04:10 +0000 (19:04 -0400)
Follow-up to 202b0c8a3ba3de0efe5cb730b242b8c0502e1add

cpan/Archive-Tar/t/09_roundtrip.t

index e02a6ee..eb13d45 100644 (file)
@@ -149,7 +149,7 @@ SKIP: {
   for my $tar_try (@TRY_TAR) {
     if (can_run($tar_try)) {
       print "# Found tar executable '$tar_try'\n";
-      my $tar_help = qx{$tar_try --help};
+      my $tar_help = qx{$tar_try --help 2>&1};
       $can_tar_gzip  = can_tar_gzip($tar_help);
       $can_tar_bzip2 = can_tar_bzip2($tar_help);
       printf "# can_tar_gzip  = %d\n", $can_tar_gzip;