fix tar type handling for uncompressed tar files
Graham Knop [Fri, 1 Dec 2017 01:28:15 +0000 (02:28 +0100)]
helpers/verify-tarball

index 0da438b..eb62f8b 100755 (executable)
@@ -12,16 +12,16 @@ GetOptions(
 
 my ($tarball, $manifest) = @ARGV;
 my $type
-  = $tarball =~ /\.bz2$/  ? 'j'
-  : $tarball =~ /\.xz$/   ? 'J'
-  : $tarball =~ /\.t?gz$/ ? 'z'
-  : $tarball =~ /\.Z$/    ? 'Z'
+  = $tarball =~ /\.bz2$/  ? '-j'
+  : $tarball =~ /\.xz$/   ? '-J'
+  : $tarball =~ /\.t?gz$/ ? '-z'
+  : $tarball =~ /\.Z$/    ? '-Z'
   : '';
 
 my @tarfiles;
 {
   my $null = File::Spec->devnull;
-  @tarfiles = `$tar -t -$type -f $tarball 2>$null`;
+  @tarfiles = `$tar -t $type -f "$tarball" 2>$null`;
   chomp @tarfiles;
 }