From laskavy@Berkeley.Gambit.Msk.SU  Mon Aug 17 05:27:33 1998
Received: from Berkeley.Gambit.Msk.SU (berkeley.gambit.msk.su [194.190.206.1])
          by hub.freebsd.org (8.8.8/8.8.8) with ESMTP id FAA01147
          for <FreeBSD-gnats-submit@freebsd.org>; Mon, 17 Aug 1998 05:27:30 -0700 (PDT)
          (envelope-from laskavy@Berkeley.Gambit.Msk.SU)
Received: (from laskavy@localhost)
	by Berkeley.Gambit.Msk.SU (8.8.8/8.8.8) id QAA13797;
	Mon, 17 Aug 1998 16:26:50 +0400 (MSD)
	(envelope-from laskavy)
Message-Id: <199808171226.QAA13797@Berkeley.Gambit.Msk.SU>
Date: Mon, 17 Aug 1998 16:26:50 +0400 (MSD)
From: " . " <laskavy@Berkeley.Gambit.Msk.SU>
Reply-To: laskavy@Berkeley.Gambit.Msk.SU
To: FreeBSD-gnats-submit@freebsd.org
Subject: catman can't work with ":" in man page name (perl man pages)
X-Send-Pr-Version: 3.2

>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:          closed
>Quarter:        
>Keywords:       
>Date-Required:  
>Class:          sw-bug
>Submitter-Id:   current-users
>Arrival-Date:   Mon Aug 17 05:30:00 PDT 1998
>Closed-Date:    Mon Aug 17 09:58:16 PDT 1998
>Last-Modified:  Mon Aug 17 09:58:52 PDT 1998
>Originator:      
>Release:        FreeBSD 2.2.6-RELEASE i386
>Organization:
The FreeBSD Documentation Project
>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;
>Release-Note:
>Audit-Trail:
State-Changed-From-To: open->closed 
State-Changed-By: des 
State-Changed-When: Mon Aug 17 09:58:16 PDT 1998 
State-Changed-Why:  
Fixed three months ago (rev. 1.11 and 1.8.2.1) 
>Unformatted:
