autoflush in a more sane way

Ignore-this: 8fc465e6dc0e7cb69d263897dbb36a48

darcs-hash:20090811070912-0cb85-2d06faa276311483cb21f8ed965f59ea486f215f.gz
This commit is contained in:
Dima Kogan 2009-08-11 00:09:12 -07:00
parent 7a3ca33118
commit bcea7fb24b

View File

@ -2,6 +2,7 @@
use strict;
use Getopt::Long;
use Time::HiRes qw( usleep );
use IO::Handle;
use Data::Dumper;
# list containing the plot data. Each element is a hash describing the extra
@ -84,7 +85,7 @@ sub main {
local *PIPE;
open PIPE, "|gnuplot" || die "Can't initialize gnuplot\n";
select((select(PIPE), $| = 1)[0]);
autoflush PIPE 1;
my $temphardcopyfile;
my $outputfile;