Fixing the Archive Extract constructor bug

ding-lab · Dec 13, 2017 · 809a621 · 809a621
1 parent cf2dcd1
commit 809a621
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/HotSpot3D-1.8.2.tar.gz b/HotSpot3D-1.8.2.tar.gz
diff --git a/lib/TGI/Mutpro/Preprocess/Trans.pm b/lib/TGI/Mutpro/Preprocess/Trans.pm
@@ -138,10 +138,16 @@ sub getPeptides {
     ## get peptide file 
 	my $url = $this->makeEnsemblFastaURL();
     my $downloadFile = $peptidesFile.".gz";
-	my $decompressor = Archive::Extract->new( 'archive' => $downloadFile );
+	#print "ACSW::Archive::downloadFile= $downloadFile\n";
+	#$Archive::Extract::DEBUG = 1;
 	if ( not -e $downloadFile ) {
 		getstore( $url, $downloadFile );
-	}
+	}	
+	my $decompressor = Archive::Extract->new( archive => $downloadFile, type => 'gz' );
+	#print "ACSW::Archive::Warning\n";
+        #print "file = ".$decompressor->archive;
+        #print "\ntype = ".$decompressor->type;
+        #print "\nis_gz = ".$decompressor->is_gz."\n";
 	$decompressor->extract( to => $peptidesFile );
     #system( "gzip -d $downloadFile" );
     # load peptide seqs