Date: Sun, 4 Feb 2001 13:21:51 -0800 (PST) From: Matt Dillon <dillon@earth.backplane.com> To: Matt Dillon <dillon@earth.backplane.com> Cc: Kris Kennaway <kris@obsecurity.org>, Brian Dean <bsd@bsdhome.com>, freebsd-stable@FreeBSD.ORG Subject: Proposed makewhatis perl script fix Message-ID: <200102042121.f14LLp816466@earth.backplane.com> References: <20010203154344.B27418@vger.bsdhome.com> <20010203125044.A40718@xor.obsecurity.org> <200102042108.f14L82U16403@earth.backplane.com>
next in thread | previous in thread | raw e-mail | index | archive | help
This should fix the installworld problems. I'll commit it to -current
tonight and MFC it in two days unless people find something wrong with
it. It would be nice if someone else could test it first.
-Matt
Index: makewhatis.perl
===================================================================
RCS file: /home/ncvs/src/gnu/usr.bin/man/makewhatis/makewhatis.perl,v
retrieving revision 1.21
diff -u -r1.21 makewhatis.perl
--- makewhatis.perl 1999/09/11 18:21:16 1.21
+++ makewhatis.perl 2001/02/04 21:11:34
@@ -352,6 +352,7 @@
$list .= ' ';
}
}
+ while(<F>) { } # skip remaining input to avoid pipe errors
&out($list); close F; return 1;
} elsif (/^\.Sh/ && /^\.Sh[ \t]+["]?($section_name)["]?/) {
# ``doc'' style pages
@@ -375,9 +376,11 @@
$list .= ' ';
}
}
+ while(<F>) { } # skip remaining input to avoid pipe errors
&out($list); close F; return 1;
} elsif(/^\.so/ && /^\.so[ \t]+man/) {
+ while(<F>) { } # skip remaining input to avoid pipe errors
close F; return 1;
}
}
To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-stable" in the body of the message
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?200102042121.f14LLp816466>