diff options
| -rw-r--r-- | gnu/usr.bin/man/makewhatis/makewhatis.perl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gnu/usr.bin/man/makewhatis/makewhatis.perl b/gnu/usr.bin/man/makewhatis/makewhatis.perl index 7b55005f4cfd..2080aa5b0a64 100644 --- a/gnu/usr.bin/man/makewhatis/makewhatis.perl +++ b/gnu/usr.bin/man/makewhatis/makewhatis.perl @@ -352,6 +352,7 @@ sub manual { $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 @@ sub manual { $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; } } |