I don't think trying to bracket the hires time with lores
[p5sagit/p5-mst-13.2.git] / lib / flush.pl
CommitLineData
a6d71656 1#
2# This library is no longer being maintained, and is included for backward
3# compatibility with Perl 4 programs which may require it.
4#
5# In particular, this should not be used as an example of modern Perl
6# programming techniques.
7#
8# Suggested alternative: IO::Handle
9#
154e51a4 10;# Usage: &flush(FILEHANDLE)
11;# flushes the named filehandle
12
13;# Usage: &printflush(FILEHANDLE, "prompt: ")
14;# prints arguments and flushes filehandle
15
16sub flush {
17 local($old) = select(shift);
18 $| = 1;
19 print "";
20 $| = 0;
21 select($old);
22}
23
24sub printflush {
25 local($old) = select(shift);
26 $| = 1;
27 print @_;
28 $| = 0;
29 select($old);
30}
31
c623bd54 321;