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