Time::Local in blead has diverged from CPAN. Update the version number to a dev release
[perl.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 # This legacy library is deprecated and will be removed in a future
5 # release of perl.
6 #
7 # In particular, this should not be used as an example of modern Perl
8 # programming techniques.
9 #
10 # Suggested alternative: IO::Handle
11
12 warn( "The 'flush.pl' legacy library is deprecated and will be"
13       . " removed in the next major release of perl. Please use the"
14       . " IO::Handle module instead." );
15
16 ;# Usage: &flush(FILEHANDLE)
17 ;# flushes the named filehandle
18
19 ;# Usage: &printflush(FILEHANDLE, "prompt: ")
20 ;# prints arguments and flushes filehandle
21
22 sub flush {
23     local($old) = select(shift);
24     $| = 1;
25     print "";
26     $| = 0;
27     select($old);
28 }
29
30 sub printflush {
31     local($old) = select(shift);
32     $| = 1;
33     print @_;
34     $| = 0;
35     select($old);
36 }
37
38 1;