Date: Mon, 17 Aug 1998 16:26:50 +0400 (MSD) From: "Сергей С. Ласкавый" <laskavy@Berkeley.Gambit.Msk.SU> To: FreeBSD-gnats-submit@FreeBSD.ORG Subject: bin/7644: catman can't work with ":" in man page name (perl man pages) Message-ID: <199808171226.QAA13797@Berkeley.Gambit.Msk.SU>
next in thread | raw e-mail | index | archive | help
>Number: 7644
>Category: bin
>Synopsis: catman can't work with ":" in man page name (perl man pages)
>Confidential: no
>Severity: non-critical
>Priority: low
>Responsible: freebsd-bugs
>State: open
>Quarter:
>Keywords:
>Date-Required:
>Class: sw-bug
>Submitter-Id: current-users
>Arrival-Date: Mon Aug 17 05:30:00 PDT 1998
>Last-Modified:
>Originator: Сергей Ласкавый
>Organization:
The FreeBSD Documentation Project
>Release: FreeBSD 2.2.6-RELEASE i386
>Environment:
/usr/bin/catman:
$Id: catman.perl,v 1.8 1996/08/27 20:04:01 wosch Exp $
>Description:
catman can't work with ":" in man page name
>How-To-Repeat:
$ catman /usr/local/lib/perl5/man
>Fix:
--- catman.orig Wed Mar 25 03:52:39 1998
+++ catman Mon Aug 3 16:50:19 1998
@@ -228,7 +228,7 @@
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 @@
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;
>Audit-Trail:
>Unformatted:
To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-bugs" in the body of the message
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?199808171226.QAA13797>