accept whitespace between \l and target

This commit is contained in:
Oswald Buddenhagen
2010-01-05 18:23:30 +01:00
parent 11622e4ac1
commit 24e1ffb193

View File

@@ -27,7 +27,7 @@ while (<FILE>) {
} else {
if (/^\h*\\endlist/) {
$intoc--;
} elsif (/^\h*\\o\h+\\l{(.*)}$/) {
} elsif (/^\h*\\o\h+\\l\h*{(.*)}$/) {
push @toc, $1;
}
}