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