bug fix for #7 when compressing output

sestaton · Nov 19, 2015 · f78b9ea · f78b9ea
1 parent f2e9907
commit f78b9ea
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 10 deletions.
diff --git a/bin/pairfq b/bin/pairfq
@@ -8,7 +8,7 @@ use File::Basename;
 use Getopt::Long;
 use Pod::Usage;
 
-our $VERSION = '0.14.6';
+our $VERSION = '0.14.7';
 
 my $script = basename($0, ());
 $script = "pairfq" if $script =~ /^-$|stdin/i;
@@ -568,10 +568,14 @@ sub compress {
 	my $fso = $fs.".gz" if defined $fs;
 	my $rso = $rs.".gz" if defined $rs;
 
-	IO::Compress::Gzip::gzip $fp => $fpo or die "gzip failed: $IO::Compress::Gzip::GzipError\n";
-	IO::Compress::Gzip::gzip $rp => $rpo or die "gzip failed: $IO::Compress::Gzip::GzipError\n" if defined $rp;
-	IO::Compress::Gzip::gzip $fs => $fso or die "gzip failed: $IO::Compress::Gzip::GzipError\n" if defined $fs;
-        IO::Compress::Gzip::gzip $rs => $rso or die "gzip failed: $IO::Compress::Gzip::GzipError\n" if defined $rs;
+	IO::Compress::Gzip::gzip($fp, $fpo) || 
+	    die "gzip failed: $IO::Compress::Gzip::GzipError\n";
+	IO::Compress::Gzip::gzip($rp, $rpo) || 
+	    die "gzip failed: $IO::Compress::Gzip::GzipError\n" if defined $rp;
+	IO::Compress::Gzip::gzip($fs, $fso) || 
+	    die "gzip failed: $IO::Compress::Gzip::GzipError\n" if defined $fs;
+        IO::Compress::Gzip::gzip($rs, $rso) || 
+	    die "gzip failed: $IO::Compress::Gzip::GzipError\n" if defined $rs;
 
 	unlink $fp;
 	unlink $rp if defined $rp;
@@ -584,10 +588,14 @@ sub compress {
 	my $fso = $fs.".bz2" if defined $fs;
 	my $rso = $rs.".bz2" if defined $rs;
 
-	IO::Compress::Bzip2::bzip2 $fp => $fpo or die "bzip2 failed: $IO::Compress::Bzip2::Bzip2Error\n";
-	IO::Compress::Bzip2::bzip2 $rp => $rpo or die "bzip2 failed: $IO::Compress::Bzip2::Bzip2Error\n" if defined $rp;
-	IO::Compress::Bzip2::bzip2 $fs => $fso or die "bzip2 failed: $IO::Compress::Bzip2::Bzip2Error\n" if defined $fs;
-	IO::Compress::Bzip2::bzip2 $rs => $rso or die "bzip2 failed: $IO::Compress::Bzip2::Bzip2Error\n" if defined $rs;
+	IO::Compress::Bzip2::bzip2($fp, $fpo) || 
+	    die "bzip2 failed: $IO::Compress::Bzip2::Bzip2Error\n";
+	IO::Compress::Bzip2::bzip2($rp, $rpo) || 
+	    die "bzip2 failed: $IO::Compress::Bzip2::Bzip2Error\n" if defined $rp;
+	IO::Compress::Bzip2::bzip2($fs, $fso) || 
+	    die "bzip2 failed: $IO::Compress::Bzip2::Bzip2Error\n" if defined $fs;
+	IO::Compress::Bzip2::bzip2($rs, $rso) || 
+	    die "bzip2 failed: $IO::Compress::Bzip2::Bzip2Error\n" if defined $rs;
 
 	unlink $fp; 
 	unlink $rp if defined $rp;

diff --git a/scripts/pairfq_lite.pl b/scripts/pairfq_lite.pl
@@ -7,7 +7,7 @@
 use Getopt::Long;
 use Pod::Usage;
 
-our $VERSION = '0.14.6';
+our $VERSION = '0.14.7';
 
 my $infile;     # input file for 'addinfo', 'splitpairs' and 'makepairs' methods
 my $outfile;    # output file for 'addinfo' method