escaping nowiki, pre, and code is non-greedy now.

This commit is contained in:
Alex Schroeder
2004-03-12 11:05:21 +00:00
parent e768871aae
commit aaea30ded4

View File

@@ -16,7 +16,7 @@
# 59 Temple Place, Suite 330
# Boston, MA 02111-1307 USA
$ModulesDescription .= '<p>$Id: toc.pl,v 1.4 2004/02/09 20:41:36 as Exp $</p>';
$ModulesDescription .= '<p>$Id: toc.pl,v 1.5 2004/03/12 11:05:21 as Exp $</p>';
*WikiHeading = *NewTocWikiHeading;
@@ -42,6 +42,9 @@ sub NewTocGetHeader {
sub TocHeadings {
$page = GetPageContent(shift);
# ignore all the stuff that gets processed anyway
foreach ('nowiki', 'pre', 'code') {
$page =~ s/<$_>(.*\n)*?+<\/$_>//gi;
}
$page =~ s/<nowiki>(.*\n)*<\/nowiki>//gi;
$page =~ s/<pre>(.*\n)*<\/pre>//gi;
$page =~ s/<code>(.*\n)*<\/code>//gi;