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>