allow ':' in manual page names, e.g. IO::Select

This commit is contained in:
Wolfram Schneider 2007-07-30 20:44:47 +00:00
parent f6998f2125
commit 7e4dddb47a
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=30551

View file

@ -33,7 +33,7 @@
# BSDI Id: bsdi-man,v 1.2 1995/01/11 02:30:01 polk Exp
# Dual CGI/Plexus mode and new interface by sanders@bsdi.com 9/22/1995
#
# $Id: man.cgi,v 1.187 2007-07-30 20:43:32 wosch Exp $
# $Id: man.cgi,v 1.188 2007-07-30 20:44:47 wosch Exp $
############################################################################
# !!! man.cgi is stale perl4 code !!!
@ -523,7 +523,7 @@ sub do_man {
$name = $1;
$section = $2;
}
if ( $name =~ /^([\w\-\.]+)$/ ) {
if ( $name =~ /^([\w\-:\.]+)$/ ) {
$name = $1;
}
else { $name = ''; }
@ -1177,7 +1177,7 @@ ETX
}
sub copyright {
$id = '$Id: man.cgi,v 1.187 2007-07-30 20:43:32 wosch Exp $';
$id = '$Id: man.cgi,v 1.188 2007-07-30 20:44:47 wosch Exp $';
return qq{\
<pre>
@ -1235,7 +1235,7 @@ sub faq {
if $manPathAliases{$_};
}
local $id = '$Id: man.cgi,v 1.187 2007-07-30 20:43:32 wosch Exp $';
local $id = '$Id: man.cgi,v 1.188 2007-07-30 20:44:47 wosch Exp $';
return qq{\
<pre>
Copyright (c) 1996-2007 <a href="$mailtoURL">Wolfram Schneider</a>