From owner-freebsd-bugs  Tue Aug  4 03:10:16 1998
Return-Path: <owner-freebsd-bugs@FreeBSD.ORG>
Received: (from majordom@localhost)
          by hub.freebsd.org (8.8.8/8.8.8) id DAA27337
          for freebsd-bugs-outgoing; Tue, 4 Aug 1998 03:10:16 -0700 (PDT)
          (envelope-from owner-freebsd-bugs@FreeBSD.ORG)
Received: from freefall.freebsd.org (freefall.FreeBSD.ORG [204.216.27.21])
          by hub.freebsd.org (8.8.8/8.8.8) with ESMTP id DAA27243
          for <freebsd-bugs@FreeBSD.org>; Tue, 4 Aug 1998 03:10:02 -0700 (PDT)
          (envelope-from gnats@FreeBSD.org)
Received: (from gnats@localhost)
	by freefall.freebsd.org (8.8.8/8.8.5) id DAA01116;
	Tue, 4 Aug 1998 03:10:00 -0700 (PDT)
Received: (from nobody@localhost)
          by hub.freebsd.org (8.8.8/8.8.8) id DAA26808;
          Tue, 4 Aug 1998 03:07:27 -0700 (PDT)
          (envelope-from nobody)
Message-Id: <199808041007.DAA26808@hub.freebsd.org>
Date: Tue, 4 Aug 1998 03:07:27 -0700 (PDT)
From: lhecking@nmrc.ucc.ie
To: freebsd-gnats-submit@FreeBSD.ORG
X-Send-Pr-Version: www-1.0
Subject: gnu/7488: Typos in catman/makewhatis perl scripts
Sender: owner-freebsd-bugs@FreeBSD.ORG
Precedence: bulk
X-Loop: FreeBSD.org


>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