sub titlepage ($) { #{{{
my $title=shift;
$title=~y/ /_/;
- # Note: [:alnum:] is not used here, on purpose; unicode
- # not allowed in urls.
- $title=~s/([^-A-Za-z0-9_:+\/.])/"__".ord($1)."__"/eg;
+ $title=~s/([^-[:alnum:]_:+\/.])/"__".ord($1)."__"/eg;
return $title;
} #}}}