Finish draining any input prior to closing the pipe, to prevent unsightly

'Broken pipe' messages from gzcat.

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 7b55005..2080aa5 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;
 	}
     }