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