diff options
| author | wosch <wosch@FreeBSD.org> | 1996-03-21 18:17:41 +0000 |
|---|---|---|
| committer | wosch <wosch@FreeBSD.org> | 1996-03-21 18:17:41 +0000 |
| commit | 402f6f9dd1f1e58d72cc5672965b89c3704d42a6 (patch) | |
| tree | c225e7e244f26f910149ddb2a3814c8493f3d53a /gnu | |
| parent | e492d0b3264764c8c67667a020deca42b895b744 (diff) | |
| download | FreeBSD-src-402f6f9dd1f1e58d72cc5672965b89c3704d42a6.zip FreeBSD-src-402f6f9dd1f1e58d72cc5672965b89c3704d42a6.tar.gz | |
Don't count character ``+'' as garbage (c++.1, flex++.1)
Submitted by: joerg
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 d21562f..d072329 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; |
