--- Tar.pm.orig	Fri Aug 10 18:30:32 2001
+++ Tar.pm	Fri Aug 10 18:30:16 2001
@@ -25,20 +25,21 @@
     unless $symlinks || !$^W;
 
 # Check if Compress::Zlib is available
-my $compression = eval { 
-    local $SIG{__DIE__};
-    require Compress::Zlib; 
-    sub Compress::Zlib::gzFile::gzseek {
-	my $tmp;
-
-	$_[0]->gzread ($tmp, 4096), $_[1] -= 4096
-	    while ($_[1] > 4096);
-
-	$_[0]->gzread ($tmp, $_[1])
-	  if $_[1];
-    }
-    1;
-};
+#my $compression = eval { 
+#    local $SIG{__DIE__};
+#    require Compress::Zlib; 
+#    sub Compress::Zlib::gzFile::gzseek {
+#	my $tmp;
+#
+#	$_[0]->gzread ($tmp, 4096), $_[1] -= 4096
+#	    while ($_[1] > 4096);
+#
+#	$_[0]->gzread ($tmp, $_[1])
+#	  if $_[1];
+#    }
+#    1;
+#};
+my $compression = 0;
 carp "Compression not available"
     unless $compression || !$^W;