os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

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

Browse source
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
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
en/cgi/man.cgi
View file

@ -33,7 +33,7 @@
# BSDI Id: bsdi-man,v 1.2 1995/01/11 02:30:01 polk Exp # 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 # 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 !!! # !!! man.cgi is stale perl4 code !!!
@ -523,7 +523,7 @@ sub do_man {
$name = $1; $name = $1;
$section = $2; $section = $2;
} }
if ( $name =~ /^([\w\-\.]+)$/ ) { if ( $name =~ /^([\w\-:\.]+)$/ ) {
$name = $1; $name = $1;
} }
else { $name = ''; } else { $name = ''; }
@ -1177,7 +1177,7 @@ ETX
} }
sub copyright { 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{\ return qq{\
<pre> <pre>
@ -1235,7 +1235,7 @@ sub faq {
if $manPathAliases{$_}; 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{\ return qq{\
<pre> <pre>
Copyright (c) 1996-2007 <a href="$mailtoURL">Wolfram Schneider</a> Copyright (c) 1996-2007 <a href="$mailtoURL">Wolfram Schneider</a>