--- trunk/spider/progspider	2004/01/20 16:01:13	48
+++ trunk/spider/progspider	2004/01/20 18:13:32	50
@@ -21,19 +21,17 @@
 	my $path = $_;
 
 	open(F,"$path") || die "can't open file: $path";
-#	print STDERR "$path";
+#	print STDERR "$path\n";
 	my $contents;
 	while(<F>) {
-#		chomp;
-#		chomp;
-#		$contents .= " ".$_;
 		$contents .= $_;
 	}
 
-#	$contents =~ s/<(\/*\w+)\s+>/<$1>/g;
-
 	$contents = filter($contents);
 
+#	die "zero size content in '$path'" if (! $contents);
+	return if (! $contents);	# don't die on empty files
+
 	my $mtime = time;
 	my $size = length $contents;