mirror of
https://github.com/dkogan/feedgnuplot.git
synced 2025-05-05 22:11:12 +08:00
STDOUT now sensibly autoflushing also
Ignore-this: 6dcd91878412e54d72fa3180cf437cc5 darcs-hash:20090811073025-0cb85-b6b9de7ca32ba0574fcabaf63490a1c3e77c8135.gz
This commit is contained in:
parent
bcea7fb24b
commit
43711c90f9
@ -5,6 +5,8 @@ use Time::HiRes qw( usleep );
|
|||||||
use IO::Handle;
|
use IO::Handle;
|
||||||
use Data::Dumper;
|
use Data::Dumper;
|
||||||
|
|
||||||
|
autoflush STDOUT 1;
|
||||||
|
|
||||||
# list containing the plot data. Each element is a hash describing the extra
|
# list containing the plot data. Each element is a hash describing the extra
|
||||||
# plotting options for each curve we're plotting, and the actual data to
|
# plotting options for each curve we're plotting, and the actual data to
|
||||||
# plot for each curve. The length of this list grows as the data comes
|
# plot for each curve. The length of this list grows as the data comes
|
||||||
@ -144,7 +146,6 @@ sub main {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
select((select(STDOUT), $| = 1)[0]);
|
|
||||||
my $xlast = 0;
|
my $xlast = 0;
|
||||||
|
|
||||||
# regexp for a possibly floating point, possibly scientific notation number
|
# regexp for a possibly floating point, possibly scientific notation number
|
||||||
|
Loading…
Reference in New Issue
Block a user