More robust yacc/bison failure output handling.
[p5sagit/p5-mst-13.2.git] / lib / flush.pl
CommitLineData
154e51a4 1;# Usage: &flush(FILEHANDLE)
2;# flushes the named filehandle
3
4;# Usage: &printflush(FILEHANDLE, "prompt: ")
5;# prints arguments and flushes filehandle
6
7sub flush {
8 local($old) = select(shift);
9 $| = 1;
10 print "";
11 $| = 0;
12 select($old);
13}
14
15sub printflush {
16 local($old) = select(shift);
17 $| = 1;
18 print @_;
19 $| = 0;
20 select($old);
21}
22
c623bd54 231;