lib/flush.pl

   1 ;# Usage: &flush(FILEHANDLE)
   2 ;# flushes the named filehandle
   3
   4 ;# Usage: &printflush(FILEHANDLE, "prompt: ")
   5 ;# prints arguments and flushes filehandle
   6
   7 sub flush {
   8     local($old) = select(shift);
   9     $| = 1;
  10     print "";
  11     $| = 0;
  12     select($old);
  13 }
  14
  15 sub printflush {
  16     local($old) = select(shift);
  17     $| = 1;
  18     print @_;
  19     $| = 0;
  20     select($old);
  21 }
  22
  23 1;