r59783 - in /branches/upstream/libchart-gnuplot-perl/current: Changes META.yml lib/Chart/Gnuplot.pm
carnil-guest at users.alioth.debian.org
carnil-guest at users.alioth.debian.org
Thu Jun 24 07:17:38 UTC 2010
Author: carnil-guest
Date: Thu Jun 24 07:12:58 2010
New Revision: 59783
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=59783
Log:
[svn-upgrade] new version libchart-gnuplot-perl (0.15)
Modified:
branches/upstream/libchart-gnuplot-perl/current/Changes
branches/upstream/libchart-gnuplot-perl/current/META.yml
branches/upstream/libchart-gnuplot-perl/current/lib/Chart/Gnuplot.pm
Modified: branches/upstream/libchart-gnuplot-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libchart-gnuplot-perl/current/Changes?rev=59783&op=diff
==============================================================================
--- branches/upstream/libchart-gnuplot-perl/current/Changes (original)
+++ branches/upstream/libchart-gnuplot-perl/current/Changes Thu Jun 24 07:12:58 2010
@@ -1,4 +1,8 @@
Change log for Chart::Gnuplot
+
+0.15
+ - Fix the problem that "orient" has no effect if "imagesize" is set
+ - Fix setting color of the label point
0.14
- Support drawing arbitrary arrows
Modified: branches/upstream/libchart-gnuplot-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libchart-gnuplot-perl/current/META.yml?rev=59783&op=diff
==============================================================================
--- branches/upstream/libchart-gnuplot-perl/current/META.yml (original)
+++ branches/upstream/libchart-gnuplot-perl/current/META.yml Thu Jun 24 07:12:58 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Chart-Gnuplot
-version: 0.14
+version: 0.15
abstract: Plot graph using Gnuplot on the fly
author:
- Ka-Wai Mak
Modified: branches/upstream/libchart-gnuplot-perl/current/lib/Chart/Gnuplot.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libchart-gnuplot-perl/current/lib/Chart/Gnuplot.pm?rev=59783&op=diff
==============================================================================
--- branches/upstream/libchart-gnuplot-perl/current/lib/Chart/Gnuplot.pm (original)
+++ branches/upstream/libchart-gnuplot-perl/current/lib/Chart/Gnuplot.pm Thu Jun 24 07:12:58 2010
@@ -5,7 +5,7 @@
use File::Copy qw(move);
use File::Temp qw(tempdir);
use Chart::Gnuplot::Util qw(_lineType _pointType _copy);
-$VERSION = '0.14';
+$VERSION = '0.15';
# Constructor
sub new
@@ -258,8 +258,17 @@
my ($ws, $hs) = split(/,\s?/, $self->{imagesize});
if (defined $self->{_terminal} && $self->{_terminal} eq 'auto')
{
- $ws *= 10; # for post terminal
- $hs *= 7; # for post terminal
+ # for post terminal
+ if (defined $self->{orient} && $self->{orient} eq 'portrait')
+ {
+ $ws *= 7 if ($ws =~ /^([1-9]\d*)?0?(\.\d+)?$/);
+ $hs *= 10 if ($hs =~ /^([1-9]\d*)?0?(\.\d+)?$/);
+ }
+ else
+ {
+ $ws *= 10 if ($ws =~ /^([1-9]\d*)?0?(\.\d+)?$/);
+ $hs *= 7 if ($hs =~ /^([1-9]\d*)?0?(\.\d+)?$/);
+ }
}
$self->{terminal} .= " size $ws,$hs";
}
@@ -942,7 +951,9 @@
$gnuplot = $self->{gnuplot} if (defined $self->{gnuplot});
my $cmd = "$gnuplot $self->{_script}";
$cmd .= " -" if ($self->{terminal} =~ /^(ggi|pm|windows|wxt|x11)(\s|$)/);
- my $err = `$cmd 2>&1`;
+# my $err = `$cmd 2>&1`;
+ my $err;
+ system("$cmd");
# Capture and process error message from Gnuplot
if (defined $err && $err ne '')
@@ -1023,7 +1034,8 @@
$out .= " pt ".&_pointType($label{pointtype}) if
(defined $label{pointtype});
$out .= " ps $label{pointsize}" if (defined $label{pointsize});
- $out .= " lc $label{pointcolor}" if (defined $label{pointcolor});
+ $out .= " lc rgb \"$label{pointcolor}\"" if
+ (defined $label{pointcolor});
}
push(@{$self->{_labels}}, $out);
More information about the Pkg-perl-cvs-commits
mailing list