diff options
| author | Wolfram Schneider <wosch@FreeBSD.org> | 1996-03-21 18:17:41 +0000 |
|---|---|---|
| committer | Wolfram Schneider <wosch@FreeBSD.org> | 1996-03-21 18:17:41 +0000 |
| commit | 3974bcb043333c06a3eb3343e61f7622d082cefd (patch) | |
| tree | c225e7e244f26f910149ddb2a3814c8493f3d53a /gnu | |
| parent | b60fff366bfdb2a4262b65f30b5ab7d42f2cc4ab (diff) | |
Notes
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 d21562fcb66ca..d0723290f1ffd 100644 --- a/gnu/usr.bin/man/catman/catman.perl +++ b/gnu/usr.bin/man/catman/catman.perl @@ -35,7 +35,7 @@ # # Email: Wolfram Schneider <wosch@cs.tu-berlin.de> # -# $Id: catman.perl,v 1.12 1995/05/19 21:07:26 w Exp w $ +# $Id: catman.perl,v 1.6 1995/05/20 19:02:53 ache Exp $ sub usage { @@ -237,7 +237,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; @@ -294,7 +294,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; |