File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change 33# and build a database for it.
44#
55# Arnaud Le Hors - lehors@w3.org
6- # $Id: mkanchdb,v 1.1 1997-07-29 17:14:53 ijacobs Exp $
6+ # $Id: mkanchdb,v 1.2 1997-11-20 23:56:46 ian Exp $
77
88$PROGNAME = substr ($0 , rindex ($0 , " /" ) + 1);
99
@@ -41,8 +41,10 @@ sub addanchor {
4141 }
4242}
4343
44+ $sp = " [ \t\n ]*" ; # space
45+ $ws = " [ \t\n ]+" ; # word separator
4446# look for index anchors
45- $banchorp = " <a[ \t\n ]+ name=" ;
47+ $banchorp = " <a(?: $ws ) name=$sp " ;
4648$eanchorp = " .*?>" ;
4749# non quoted name
4850$namep = " $prefix -([^\" ][^ \t\n >]+)" ;
Original file line number Diff line number Diff line change 33# and build a database for it.
44#
55# Arnaud Le Hors - lehors@w3.org
6- # $Id: mkanchdb,v 1.1 1997-07-29 17:14:53 ijacobs Exp $
6+ # $Id: mkanchdb,v 1.2 1997-11-20 23:56:46 ian Exp $
77
88$PROGNAME = substr ($0 , rindex ($0 , " /" ) + 1);
99
@@ -41,8 +41,10 @@ sub addanchor {
4141 }
4242}
4343
44+ $sp = " [ \t\n ]*" ; # space
45+ $ws = " [ \t\n ]+" ; # word separator
4446# look for index anchors
45- $banchorp = " <a[ \t\n ]+ name=" ;
47+ $banchorp = " <a(?: $ws ) name=$sp " ;
4648$eanchorp = " .*?>" ;
4749# non quoted name
4850$namep = " $prefix -([^\" ][^ \t\n >]+)" ;
You can’t perform that action at this time.
0 commit comments