From cdad4bed6493f523897387c2dec4b5462d18f638 Mon Sep 17 00:00:00 2001 From: espie Date: Tue, 4 Apr 2000 15:31:06 +0000 Subject: [PATCH] Scan l and n sections as well. Noticed by Hal Snyder. --- libexec/makewhatis/makewhatis.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/libexec/makewhatis/makewhatis.pl b/libexec/makewhatis/makewhatis.pl index 75efc839f42..e81c6450622 100644 --- a/libexec/makewhatis/makewhatis.pl +++ b/libexec/makewhatis/makewhatis.pl @@ -1,7 +1,7 @@ #!/usr/bin/perl -w # ex:ts=8 sw=4: -# $OpenBSD: makewhatis.pl,v 1.4 2000/03/31 15:56:59 espie Exp $ +# $OpenBSD: makewhatis.pl,v 1.5 2000/04/04 15:31:06 espie Exp $ # # Copyright (c) 2000 Marc Espie. # @@ -273,7 +273,7 @@ sub find_manpages $list=[]; find( sub { - return unless /\.\d\w*(?:\.Z|\.gz)?$/; + return unless /\.[\dln]\w*(?:\.Z|\.gz)?$/; return unless -f $_; my $inode = (stat _)[1]; return if defined $nodes{$inode}; @@ -302,7 +302,7 @@ sub scan_manpages } else { $file = new IO::File $_ or die "$0: Can't read $_\n"; } - if (m/\.[1-9][^.]*$/) { + if (m/\.[1-9ln][^.]*$/) { $subjects = handle_unformated($file, $_); } elsif (m/\.0$/) { $subjects = handle_formated($file, $_); -- 2.20.1