--- genxref	Tue Nov  7 07:15:26 2006
+++ /export/home/www/html/genxref	Tue Nov  7 08:27:12 2006
@@ -76,0 +76,1 @@
+my $plidentp = '[$@%&]';
@@ -170,1 +171,0 @@
-        my $plidentp = '[$@%&]';
@@ -601,1 +601,1 @@
-    foreach $f (@jsfiles) {
+    foreach $f (@plfiles) {
@@ -615,3 +615,3 @@
-	# Remove comments
-	$contents =~ s/\/\*(.*?)\*\//&wash($1)/ges; 
-	$contents =~ s/\/\/[^\n]*//g;
+        # Remove comments.
+        $contents =~ s/^\s=(?:\w+)\n(.*?)=cut/&wash($1)/ges; # Perl Pod
+        $contents =~ s/\#[^\n]*//g; # Perl Comment
@@ -627,1 +627,1 @@
-	    foreach ($line =~ /(?:^|[^a-zA-Z_\#])($ident)\b/og) {
+	    foreach ($line =~ /(?:^|[^a-zA-Z_\#]|$plidentp)($ident)\b/og) {