--- doc/help/rebuildLabelHash.pl	2007/08/07 21:40:40	1.8
+++ doc/help/rebuildLabelHash.pl	2007/08/07 22:46:20	1.9
@@ -90,7 +90,11 @@ foreach my $file ( glob("*.tex") ) {
     if ( index($file, "/") != "/" ) {
 	$file = substr($file, index($file, "/") + 1);
     } 
-    my $contents = join("\n", <F>);
+    my $contents;
+    foreach my $line (<F>) {
+	next if ($line =~ /^%/);
+	$contents .= $line;
+    }
     my $label;