Date: Tue, 4 Aug 1998 03:07:27 -0700 (PDT) From: lhecking@nmrc.ucc.ie To: freebsd-gnats-submit@FreeBSD.ORG Subject: gnu/7488: Typos in catman/makewhatis perl scripts Message-ID: <199808041007.DAA26808@hub.freebsd.org>
next in thread | raw e-mail | index | archive | help
>Number: 7488
>Category: gnu
>Synopsis: Typos in catman/makewhatis perl scripts
>Confidential: no
>Severity: non-critical
>Priority: low
>Responsible: freebsd-bugs
>State: open
>Quarter:
>Keywords:
>Date-Required:
>Class: change-request
>Submitter-Id: current-users
>Arrival-Date: Tue Aug 4 03:10:00 PDT 1998
>Last-Modified:
>Originator: Lars Hecking
>Organization:
National Microelectronics Research Centre
>Release: none (files in question from -current)
>Environment:
Architecture independent (perl scripts)
>Description:
1) Typo in help for makewhatis.perl
2) Typo (?) in chmod invocation in catman.perl. Potentially harmful.
>How-To-Repeat:
vi +35 catman.perl
vi +179 makewhatis.perl
;)
>Fix:
Ad1)
--- makewhatis.perl Tue Aug 4 10:46:20 1998
+++ makewhatis.perl.new Tue Aug 4 10:59:42 1998
@@ -32,7 +32,7 @@
sub usage {
warn <<EOF;
-usage: makewhatis [-a|-append ] [-h|-help] [-i|-indent colum]
+usage: makewhatis [-a|-append ] [-h|-help] [-i|-indent column]
[-n|-name name] [-o|-outfile file] [-v|-verbose]
[directories ...]
EOF
Ad2)--- catman.perl Tue Aug 4 10:46:10 1998
+++ catman.perl.new Tue Aug 4 11:00:44 1998
@@ -176,7 +176,7 @@
$catdir = &man2cat($subdir);
if (-d $catdir) {
return 1 if -w _;
- if (!chmod(755, $catdir)) {
+ if (!chmod(0755, $catdir)) {
warn "Cannot write $catdir, chmod: $!\n";
$exit = 1;
return 0;
>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?199808041007.DAA26808>