--- trunk/lib/WAIT/Document/Tar.pm	2005/07/15 18:59:10	118
+++ trunk/lib/WAIT/Document/Tar.pm	2005/09/16 22:49:35	119
@@ -14,8 +14,8 @@
 # 
 
 package WAIT::Document::Tar;
-@ISA = qw(WAIT::Document::Base);
 require WAIT::Document::Base;
+@ISA = qw(WAIT::Document::Base);
 
 use FileHandle;
 use strict;
@@ -56,7 +56,7 @@
   $self->close_file if $self->{_fh};
 
   unless (-f $file) {
-    for (qw(.gz .Z)) {
+    for (qw(.gz .Z .tgz)) {
       if (-f "$file$_") {
         $file .= $_;
         last;
@@ -65,7 +65,7 @@
   }
   return unless -f $file;
 
-  if ($file =~ s/\.gz$//) {
+  if ($file =~ s/\.(gz|tgz)$//) {
     $self->{_fh}   = new IO::File "gzip -cd $file|";
   } elsif ($file =~ s/\.Z$//) {
     $self->{_fh}   = new IO::File "compress -cd $file|";