allow ':' in manual page names, e.g. IO::Select
This commit is contained in:
parent
f6998f2125
commit
7e4dddb47a
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/www/; revision=30551
1 changed files with 4 additions and 4 deletions
|
|
@ -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>
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue