hjp
/
timeseries
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

use "set style data ..." instead of "set data style ..."

This commit is contained in:
hjp 2011-02-05 21:22:15 +00:00
parent 4e7a5cd120
commit cec6895a09
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
TimeSeries.pm
View File

@ -33,7 +33,7 @@ use HTTP::Date qw(parse_date);
use Time::Local qw(timegm_nocheck); use Time::Local qw(timegm_nocheck);
use POSIX qw(strftime); use POSIX qw(strftime);
our $VERSION = do { my @r=(q$Revision: 1.21 $=~/\d+/g);sprintf "%d."."%02d"x$#r,@r}; our $VERSION = do { my @r=(q$Revision: 1.22 $=~/\d+/g);sprintf "%d."."%02d"x$#r,@r};
our $debug; our $debug;
@ -368,7 +368,7 @@ sub plot {
print $ctlfh "set term postscript color solid 10\n"; print $ctlfh "set term postscript color solid 10\n";
print $ctlfh "set output '$psfn'\n"; print $ctlfh "set output '$psfn'\n";
print $ctlfh "set data style $self->{style}\n"; print $ctlfh "set style data $self->{style}\n";
print $ctlfh "set grid\n"; print $ctlfh "set grid\n";
print $ctlfh "set log x\n" if ($self->{log_x}); print $ctlfh "set log x\n" if ($self->{log_x});
print $ctlfh "set log y\n" if ($self->{log_y}); print $ctlfh "set log y\n" if ($self->{log_y});