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