extra code in pp_concat, Take 2
[p5sagit/p5-mst-13.2.git] / lib / flush.pl
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 #
10 ;# Usage: &flush(FILEHANDLE)
11 ;# flushes the named filehandle
12
13 ;# Usage: &printflush(FILEHANDLE, "prompt: ")
14 ;# prints arguments and flushes filehandle
15
16 sub flush {
17     local($old) = select(shift);
18     $| = 1;
19     print "";
20     $| = 0;
21     select($old);
22 }
23
24 sub printflush {
25     local($old) = select(shift);
26     $| = 1;
27     print @_;
28     $| = 0;
29     select($old);
30 }
31
32 1;