1
0
mirror of https://git.FreeBSD.org/src.git synced 2024-12-04 09:09:56 +00:00

Don't delete man pages with colons in their name (e.g. Perl 5 manpages)

PR:		bin/5439
Submitted by:	Martin Kammerhofer dada@sbox.tu-graz.ac.at
This commit is contained in:
Dag-Erling Smørgrav 1998-05-01 13:27:27 +00:00
parent 56c5891c88
commit 832984b50e
Notes: svn2git 2020-12-20 02:59:44 +00:00
svn path=/head/; revision=35580

View File

@ -26,7 +26,7 @@
#
# /usr/bin/catman - preformat man pages
#
# $Id$
# $Id: catman.perl,v 1.10 1997/02/22 15:47:00 peter Exp $
sub usage {
@ -228,7 +228,7 @@ sub parse_subdir {
next if $file eq "." || $file eq "..";
# fo_09-o.bar0
if ($file !~ /^[\w\-\+\[\.]+\.\w+$/) {
if ($file !~ /^[\w\-\+\[\.:]+\.\w+$/) {
&garbage("$mandir/$file", "Assume garbage")
unless -d "$mandir/$file";
next;
@ -285,7 +285,7 @@ sub parse_subdir {
foreach $file (readdir(D)) {
next if $file =~ /^(\.|\.\.)$/; # skip current and parent directory
if ($file !~ /^[\w\-\+\[\.]+\.\w+$/) {
if ($file !~ /^[\w\-\+\[\.:]+\.\w+$/) {
&garbage("$catdir/$file", "Assume garbage")
unless -d "$catdir/$file";
next;