--- Std.pm-0.23	2003-02-01 00:59:20.000000000 +0100
+++ Std.pm	2003-02-01 01:40:59.000000000 +0100
@@ -313,6 +313,11 @@
 	$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;
+	$type = FILE unless /^\d+$/;
+
 	# 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 +397,8 @@
 		if $type == FILE;
 	}
 	$file->gzread ($head, $tar_header_length) 
-	    or goto &_drat;
+#	    or goto &_drat;
+	    or last;		 # FIX
     }
 
     $file->gzclose ()