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:
parent
56c5891c88
commit
832984b50e
Notes:
svn2git
2020-12-20 02:59:44 +00:00
svn path=/head/; revision=35580
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user