STDOUT now sensibly autoflushing also

Ignore-this: 6dcd91878412e54d72fa3180cf437cc5

darcs-hash:20090811073025-0cb85-b6b9de7ca32ba0574fcabaf63490a1c3e77c8135.gz
This commit is contained in:
Dima Kogan 2009-08-11 00:30:25 -07:00
parent bcea7fb24b
commit 43711c90f9

View File

@ -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