Stop "fortune -l" from looping forever.

PR:		bin/58730
Submitted by:	pak <pak@cns.utoronto.ca>
This commit is contained in:
ceri 2003-12-27 16:04:41 +00:00
parent 7cc51bb81d
commit 17cbb0b2fc

View File

@ -282,7 +282,7 @@ fortlen()
char line[BUFSIZ]; char line[BUFSIZ];
if (!(Fortfile->tbl.str_flags & (STR_RANDOM | STR_ORDERED))) if (!(Fortfile->tbl.str_flags & (STR_RANDOM | STR_ORDERED)))
nchar = (Seekpts[1] - Seekpts[0] <= SLEN); nchar = (int)(Seekpts[1] - Seekpts[0]);
else { else {
open_fp(Fortfile); open_fp(Fortfile);
(void) fseek(Fortfile->inf, Seekpts[0], 0); (void) fseek(Fortfile->inf, Seekpts[0], 0);