--- Tar-0.22.pm	2000-04-28 00:50:15.000000000 +0200
+++ Tar.pm	2003-01-04 00:39:49.000000000 +0100
@@ -313,6 +313,10 @@
 	$devminor = oct $devminor;
 	$name = $prefix."/".$name if $prefix;
 	$prefix = "";
+
+	# some tar-s don't set correct type at all, fallback to file
+	$type = FILE if ! $type;
+
 	# some broken tar-s don't set the type for directories
 	# so we ass_u_me a directory if the name ends in slash
 	$type = DIR
@@ -392,7 +396,8 @@
 		if $type == FILE;
 	}
 	$file->gzread ($head, $tar_header_length) 
-	    or goto &_drat;
+	    or last;
+#	    or goto &_drat;	## FIX
     }
 
     $file->gzclose ()
