don't escape . in titlepage conversion

master
joey 2006-03-29 03:31:59 +00:00
parent 6b9082c643
commit 8e089857bf
1 changed files with 1 additions and 1 deletions

View File

@ -255,7 +255,7 @@ sub pagetitle ($) { #{{{
sub titlepage ($) { #{{{
my $title=shift;
$title=~y/ /_/;
$title=~s/([^-A-Za-z0-9_:+\/])/"__".ord($1)."__"/eg;
$title=~s/([^-A-Za-z0-9_:+\/.])/"__".ord($1)."__"/eg;
return $title;
} #}}}