diff options
| author | des <des@FreeBSD.org> | 1998-05-01 13:27:27 +0000 |
|---|---|---|
| committer | des <des@FreeBSD.org> | 1998-05-01 13:27:27 +0000 |
| commit | d63405a02b79162f44a9387d8bf47b5127257020 (patch) | |
| tree | b48b915a750fdcc20b1aa011c0ea69dc8396ddb6 /gnu | |
| parent | dec484575fb940f5ba0941f3c7ca2158f291d75b (diff) | |
| download | FreeBSD-src-d63405a02b79162f44a9387d8bf47b5127257020.zip FreeBSD-src-d63405a02b79162f44a9387d8bf47b5127257020.tar.gz | |
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
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/usr.bin/man/catman/catman.perl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gnu/usr.bin/man/catman/catman.perl b/gnu/usr.bin/man/catman/catman.perl index 70be35f..f1645f9 100644 --- a/gnu/usr.bin/man/catman/catman.perl +++ b/gnu/usr.bin/man/catman/catman.perl @@ -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; |
