[Bio] / FigKernelPackages / SeedUtils.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/SeedUtils.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.55, Wed Oct 6 17:11:47 2010 UTC revision 1.56, Tue Nov 2 14:51:48 2010 UTC
# Line 1882  Line 1882 
1882      my($file, $norm) = @_;      my($file, $norm) = @_;
1883    
1884      my($input_fh, $clean_fh);      my($input_fh, $clean_fh);
1885    
1886        if ($file =~ /\.gz$/)
1887        {
1888            open($input_fh, "-|", "gunzip", "-c", $file) or die "cannot unzip $file: $!";
1889        }
1890        else
1891        {
1892      open($input_fh, "<", $file) or die "cannot open $file: $!";      open($input_fh, "<", $file) or die "cannot open $file: $!";
1893        }
1894    
1895      if ($norm)      if ($norm)
1896      {      {

Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3