Give the pattern used to pick out a source anchor a more specific pattern.

This commit is contained in:
Fred Drake 2001-06-23 04:35:09 +00:00
parent 5962eb0d89
commit f015d9a5f6

View File

@ -39,7 +39,7 @@ foreach $label (keys %internal_labels) {
while (<>) {
# don't want to do one s/// per line per node
# so look for lines with hrefs, then do s/// on nodes present
if (/(HREF|href)=[\"\']([^\#\"\']*)html[\#\"\']/) {
if (/(HREF|href)=[\"\']node\d+\.html[\#\"\']/) {
@parts = split(/(HREF|href)\=[\"\']/);
shift @parts;
for $node (@parts) {