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 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 321; 33