X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDistar.pm;h=a3197e8ff5e018df6e207c4993c2ef879cf4ff8f;hb=87c14395b8b86c3ede74d1cef96ed1889ab9d901;hp=e283189ebaaa8c69c8228838a00fba188cb682ac;hpb=31aab5e1c048eec446436103e837e3964561fabd;p=p5sagit%2FDistar.git diff --git a/lib/Distar.pm b/lib/Distar.pm index e283189..a3197e8 100644 --- a/lib/Distar.pm +++ b/lib/Distar.pm @@ -138,14 +138,15 @@ sub write_manifest_skip { my $pre_tar = $self->{TAR}; my $out = $self->SUPER::init_dist(@_); + my $dn = File::Spec->devnull; my $tar = $self->{TAR}; my $gtar; my $set_user; - my $version = `$tar --version`; + my $version = `$tar --version 2>$dn`; if ($version =~ /GNU tar/) { $gtar = 1; } - elsif (!$pre_tar && `gtar --version`) { + elsif (!$pre_tar && `gtar --version 2>$dn`) { $tar = 'gtar'; $gtar = 1; }