r45650 - in /branches/upstream/librrdtool-oo-perl/current: Changes META.yml README lib/RRDTool/OO.pm t/001Basic.t t/005Graph.t t/008Mult.t t/010ABD.t

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Mon Oct 12 17:27:13 UTC 2009 

Author: jawnsy-guest
Date: Mon Oct 12 17:27:08 2009
New Revision: 45650

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=45650
Log:
[svn-upgrade] Integrating new upstream version, librrdtool-oo-perl (0.27)

Modified:
    branches/upstream/librrdtool-oo-perl/current/Changes
    branches/upstream/librrdtool-oo-perl/current/META.yml
    branches/upstream/librrdtool-oo-perl/current/README
    branches/upstream/librrdtool-oo-perl/current/lib/RRDTool/OO.pm
    branches/upstream/librrdtool-oo-perl/current/t/001Basic.t
    branches/upstream/librrdtool-oo-perl/current/t/005Graph.t
    branches/upstream/librrdtool-oo-perl/current/t/008Mult.t
    branches/upstream/librrdtool-oo-perl/current/t/010ABD.t

Modified: branches/upstream/librrdtool-oo-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librrdtool-oo-perl/current/Changes?rev=45650&op=diff
==============================================================================
--- branches/upstream/librrdtool-oo-perl/current/Changes (original)
+++ branches/upstream/librrdtool-oo-perl/current/Changes Mon Oct 12 17:27:08 2009
@@ -1,3 +1,8 @@
+0.27 (10/11/2009)
+    (ms) Slaven Rezic reported huge memory consumption by the test suite,
+         turned out to be fetch_start() call spanning several years. 
+         Fixed by defining the end time as well as the start time.
+
 0.26 (09/27/2009)
     (ms) [RT 32601] Using prompt() instead of manually asking for input 
          in Makefile.PL (by Fabien Wernli)

Modified: branches/upstream/librrdtool-oo-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librrdtool-oo-perl/current/META.yml?rev=45650&op=diff
==============================================================================
--- branches/upstream/librrdtool-oo-perl/current/META.yml (original)
+++ branches/upstream/librrdtool-oo-perl/current/META.yml Mon Oct 12 17:27:08 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               RRDTool-OO
-version:            0.26
+version:            0.27
 abstract:           Object-oriented interface to RRDTool
 author:
     - Mike Schilli <m at perlmeister.com>

Modified: branches/upstream/librrdtool-oo-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librrdtool-oo-perl/current/README?rev=45650&op=diff
==============================================================================
--- branches/upstream/librrdtool-oo-perl/current/README (original)
+++ branches/upstream/librrdtool-oo-perl/current/README Mon Oct 12 17:27:08 2009
@@ -1,5 +1,5 @@
 ######################################################################
-    RRDTool::OO 0.26
+    RRDTool::OO 0.27
 ######################################################################
 
 NAME

Modified: branches/upstream/librrdtool-oo-perl/current/lib/RRDTool/OO.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librrdtool-oo-perl/current/lib/RRDTool/OO.pm?rev=45650&op=diff
==============================================================================
--- branches/upstream/librrdtool-oo-perl/current/lib/RRDTool/OO.pm (original)
+++ branches/upstream/librrdtool-oo-perl/current/lib/RRDTool/OO.pm Mon Oct 12 17:27:08 2009
@@ -7,7 +7,7 @@
 use RRDs;
 use Log::Log4perl qw(:easy);
 
-our $VERSION = '0.26';
+our $VERSION = '0.27';
 
    # Define the mandatory and optional parameters for every method.
 our $OPTIONS = {

Modified: branches/upstream/librrdtool-oo-perl/current/t/001Basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librrdtool-oo-perl/current/t/001Basic.t?rev=45650&op=diff
==============================================================================
--- branches/upstream/librrdtool-oo-perl/current/t/001Basic.t (original)
+++ branches/upstream/librrdtool-oo-perl/current/t/001Basic.t Mon Oct 12 17:27:08 2009
@@ -97,7 +97,8 @@
 my @expected = qw(1080462360:5.6 1080462420:5.7 1080462480:5.8
                   1080462540:5.9 1080462600:6);
 
-$rrd->fetch_start(start => $end_time - 5*60, cfunc => 'MAX');
+$rrd->fetch_start(start => $end_time - 5*60, end => $end_time,
+                  cfunc => 'MAX');
 $rrd->fetch_skip_undef();
 my $count = 0;
 while(my($time, $val) = $rrd->fetch_next()) {
@@ -110,7 +111,8 @@
     # long-term archive
 @expected = qw(1080461100:3.5 1080461400:4 1080461700:4.5 1080462000:5 1080462300:5.5 1080462600:6);
 
-$rrd->fetch_start(start => $end_time - 30*60, cfunc => 'MAX');
+$rrd->fetch_start(start => $end_time - 30*60, end => $end_time,
+                  cfunc => 'MAX');
 $rrd->fetch_skip_undef();
 $count = 0;
 while(my($time, $val) = $rrd->fetch_next()) {

Modified: branches/upstream/librrdtool-oo-perl/current/t/005Graph.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librrdtool-oo-perl/current/t/005Graph.t?rev=45650&op=diff
==============================================================================
--- branches/upstream/librrdtool-oo-perl/current/t/005Graph.t (original)
+++ branches/upstream/librrdtool-oo-perl/current/t/005Graph.t Mon Oct 12 17:27:08 2009
@@ -87,7 +87,8 @@
     });
 }
 
-$rrd->fetch_start(start => $start_time, cfunc => 'MAX');
+$rrd->fetch_start(start => $start_time, end => $end_time,
+                  cfunc => 'MAX');
 $rrd->fetch_skip_undef();
 while(my($time, $val1, $val2) = $rrd->fetch_next()) {
     last unless defined $val1;
@@ -132,7 +133,8 @@
     });
 }
 
-$rrd2->fetch_start(start => $start_time, cfunc => 'AVERAGE');
+$rrd2->fetch_start(start => $start_time, end => $end_time,
+                   cfunc => 'AVERAGE');
 $rrd2->fetch_skip_undef();
 while(my($time, $val1) = $rrd2->fetch_next()) {
     last unless defined $val1;

Modified: branches/upstream/librrdtool-oo-perl/current/t/008Mult.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librrdtool-oo-perl/current/t/008Mult.t?rev=45650&op=diff
==============================================================================
--- branches/upstream/librrdtool-oo-perl/current/t/008Mult.t (original)
+++ branches/upstream/librrdtool-oo-perl/current/t/008Mult.t Mon Oct 12 17:27:08 2009
@@ -61,7 +61,8 @@
 my @expected_val2 = qw(1080462360:15.6 1080462420:15.7 1080462480:15.8
                        1080462540:15.9 1080462600:16);
 
-$rrd->fetch_start(start => $end_time - 5*60, cfunc => 'MAX');
+$rrd->fetch_start(start => $end_time - 5*60, end => $end_time,
+                  cfunc => 'MAX');
 $rrd->fetch_skip_undef();
 my $count = 0;
 while(my($time, $val1, $val2) = $rrd->fetch_next()) {

Modified: branches/upstream/librrdtool-oo-perl/current/t/010ABD.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/librrdtool-oo-perl/current/t/010ABD.t?rev=45650&op=diff
==============================================================================
--- branches/upstream/librrdtool-oo-perl/current/t/010ABD.t (original)
+++ branches/upstream/librrdtool-oo-perl/current/t/010ABD.t Mon Oct 12 17:27:08 2009
@@ -111,7 +111,8 @@
 ###########################################
     my($rrd, $start_time) = @_;
 
-    $rrd->fetch_start(start => $start_time, cfunc => "FAILURES");
+    $rrd->fetch_start(start => $start_time, end => $end_time + 3600,
+                      cfunc => "FAILURES");
     $rrd->fetch_skip_undef();
     my $count = 0;
     while(my($time, $val) = $rrd->fetch_next()) {

More information about the Pkg-perl-cvs-commits mailing list