[Summary view] [Print] [Text view]

   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;