73 |
# ></head> |
# ></head> |
74 |
# which will confuse indexer (or libxml2?) |
# which will confuse indexer (or libxml2?) |
75 |
$contents =~ s/[\n\r]^(>)/$1\n/msg; |
$contents =~ s/[\n\r]^(>)/$1\n/msg; |
76 |
|
# remove comments between <html> and <head> texi2html inserts them |
77 |
|
# there and swish can't find document title then (libxml or swish bug?) |
78 |
|
while ($contents =~ s/(<html>.*)<!--.*?-->(.*<head>)/$1$2/msi) { }; |
79 |
print CONTENTS $contents; |
print CONTENTS $contents; |
80 |
close( CONTENTS ); |
close( CONTENTS ); |
81 |
|
|