Since grep doesn't handle SIGPIPE in any sane way but instead
clutters the error.log with useless comments like
"grep: writing output: Broken pipe" for each and every line it
wants to write, lets make it happy and read all the stuff in even
if we don't use it.
&searchfile(\@results, reverse($_)."/", \$nres, $reverses);
last if $Packages::Search::too_many_hits;
}
&searchfile(\@results, reverse($_)."/", \$nres, $reverses);
last if $Packages::Search::too_many_hits;
}
+ while (<FILENAMES>) {};
close FILENAMES or warn "fgrep error: $!\n";
} else {
close FILENAMES or warn "fgrep error: $!\n";
} else {