don't build p6doc index keyed on junk

stmuk · stmuk · commit 7e97efe5648a · 2015-01-17T14:14:16.000Z
diff --git a/bin/p6doc-index b/bin/p6doc-index
@@ -45,7 +45,7 @@ multi sub MAIN('build') {
                 }
                 if $row ~~ /X\<(.*?)\>/ and $section {
                     my $x = $0.Str;
-                    %words{$x}.push([$pod, $section]);
+                    %words{$x}.push([$pod, $section]) if $x ~~ m/^<alpha>/;
                 }
             }
         }

Original file line number	Diff line number	Diff line change
`@@ -45,7 +45,7 @@ multi sub MAIN('build') {`
`45`	`45`	`}`
`46`	`46`	`if $row ~~ /X\<(.*?)\>/ and $section {`
`47`	`47`	`my $x = $0.Str;`
`48`		`- %words{$x}.push([$pod, $section]);`
	`48`	`+ %words{$x}.push([$pod, $section]) if $x ~~ m/^<alpha>/;`
`49`	`49`	`}`
`50`	`50`	`}`
`51`	`51`	`}`