mirror of
https://github.com/dkogan/feedgnuplot.git
synced 2025-05-06 06:21:16 +08:00
autoflush in a more sane way
Ignore-this: 8fc465e6dc0e7cb69d263897dbb36a48 darcs-hash:20090811070912-0cb85-2d06faa276311483cb21f8ed965f59ea486f215f.gz
This commit is contained in:
parent
7a3ca33118
commit
bcea7fb24b
@ -2,6 +2,7 @@
|
|||||||
use strict;
|
use strict;
|
||||||
use Getopt::Long;
|
use Getopt::Long;
|
||||||
use Time::HiRes qw( usleep );
|
use Time::HiRes qw( usleep );
|
||||||
|
use IO::Handle;
|
||||||
use Data::Dumper;
|
use Data::Dumper;
|
||||||
|
|
||||||
# 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
|
||||||
@ -84,7 +85,7 @@ sub main {
|
|||||||
|
|
||||||
local *PIPE;
|
local *PIPE;
|
||||||
open PIPE, "|gnuplot" || die "Can't initialize gnuplot\n";
|
open PIPE, "|gnuplot" || die "Can't initialize gnuplot\n";
|
||||||
select((select(PIPE), $| = 1)[0]);
|
autoflush PIPE 1;
|
||||||
|
|
||||||
my $temphardcopyfile;
|
my $temphardcopyfile;
|
||||||
my $outputfile;
|
my $outputfile;
|
||||||
|
Loading…
Reference in New Issue
Block a user