/[wait]/trunk/lib/WAIT/Document/Tar.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WAIT/Document/Tar.pm

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

revision 118 by dpavlin, Mon May 24 13:44:01 2004 UTC revision 119 by dpavlin, Fri Sep 16 22:49:35 2005 UTC
# Line 14  Line 14 
14  #  #
15    
16  package WAIT::Document::Tar;  package WAIT::Document::Tar;
 @ISA = qw(WAIT::Document::Base);  
17  require WAIT::Document::Base;  require WAIT::Document::Base;
18    @ISA = qw(WAIT::Document::Base);
19    
20  use FileHandle;  use FileHandle;
21  use strict;  use strict;
# Line 56  sub open_file { Line 56  sub open_file {
56    $self->close_file if $self->{_fh};    $self->close_file if $self->{_fh};
57    
58    unless (-f $file) {    unless (-f $file) {
59      for (qw(.gz .Z)) {      for (qw(.gz .Z .tgz)) {
60        if (-f "$file$_") {        if (-f "$file$_") {
61          $file .= $_;          $file .= $_;
62          last;          last;
# Line 65  sub open_file { Line 65  sub open_file {
65    }    }
66    return unless -f $file;    return unless -f $file;
67    
68    if ($file =~ s/\.gz$//) {    if ($file =~ s/\.(gz|tgz)$//) {
69      $self->{_fh}   = new IO::File "gzip -cd $file|";      $self->{_fh}   = new IO::File "gzip -cd $file|";
70    } elsif ($file =~ s/\.Z$//) {    } elsif ($file =~ s/\.Z$//) {
71      $self->{_fh}   = new IO::File "compress -cd $file|";      $self->{_fh}   = new IO::File "compress -cd $file|";
Legend:
Removed from v.118  
changed lines
  Added in v.119
  ViewVC Help
Powered by ViewVC 1.1.26