r32914 - in /trunk/libdatetime-set-perl: Changes META.yml debian/changelog lib/DateTime/Set.pm lib/DateTime/Span.pm lib/DateTime/SpanSet.pm t/08span.t
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Thu Apr 9 16:38:31 UTC 2009
Author: gregoa
Date: Thu Apr 9 16:38:23 2009
New Revision: 32914
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=32914
Log:
New upstream release.
Modified:
trunk/libdatetime-set-perl/Changes
trunk/libdatetime-set-perl/META.yml
trunk/libdatetime-set-perl/debian/changelog
trunk/libdatetime-set-perl/lib/DateTime/Set.pm
trunk/libdatetime-set-perl/lib/DateTime/Span.pm
trunk/libdatetime-set-perl/lib/DateTime/SpanSet.pm
trunk/libdatetime-set-perl/t/08span.t
Modified: trunk/libdatetime-set-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-set-perl/Changes?rev=32914&op=diff
==============================================================================
--- trunk/libdatetime-set-perl/Changes (original)
+++ trunk/libdatetime-set-perl/Changes Thu Apr 9 16:38:23 2009
@@ -1,4 +1,8 @@
Changes for DateTime::Set
+
+0.27 2009-04-02
+- fixed DateTime::Spanset duration() method.
+ Reported by Anton Berezin <tobez at tobez.org>
0.26 2008-12-25
- fixed DateTime::Spanset current() and set_time_zone() methods.
Modified: trunk/libdatetime-set-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-set-perl/META.yml?rev=32914&op=diff
==============================================================================
--- trunk/libdatetime-set-perl/META.yml (original)
+++ trunk/libdatetime-set-perl/META.yml Thu Apr 9 16:38:23 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: DateTime-Set
-version: 0.26
+version: 0.27
abstract: DateTime set objects
license: ~
author:
Modified: trunk/libdatetime-set-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-set-perl/debian/changelog?rev=32914&op=diff
==============================================================================
--- trunk/libdatetime-set-perl/debian/changelog (original)
+++ trunk/libdatetime-set-perl/debian/changelog Thu Apr 9 16:38:23 2009
@@ -1,3 +1,9 @@
+libdatetime-set-perl (0.27-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org> Thu, 09 Apr 2009 18:37:49 +0200
+
libdatetime-set-perl (0.26-1) unstable; urgency=low
* debian/control: Changed: Switched Vcs-Browser field to ViewSVN
Modified: trunk/libdatetime-set-perl/lib/DateTime/Set.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-set-perl/lib/DateTime/Set.pm?rev=32914&op=diff
==============================================================================
--- trunk/libdatetime-set-perl/lib/DateTime/Set.pm (original)
+++ trunk/libdatetime-set-perl/lib/DateTime/Set.pm Thu Apr 9 16:38:23 2009
@@ -16,7 +16,7 @@
use constant NEG_INFINITY => -1 * (100 ** 100 ** 100);
BEGIN {
- $VERSION = '0.26';
+ $VERSION = '0.27';
}
Modified: trunk/libdatetime-set-perl/lib/DateTime/Span.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-set-perl/lib/DateTime/Span.pm?rev=32914&op=diff
==============================================================================
--- trunk/libdatetime-set-perl/lib/DateTime/Span.pm (original)
+++ trunk/libdatetime-set-perl/lib/DateTime/Span.pm Thu Apr 9 16:38:23 2009
@@ -286,11 +286,11 @@
sub duration {
my $dur;
+ local $@;
eval {
local $SIG{__DIE__}; # don't want to trap this (rt ticket 5434)
$dur = $_[0]->end->subtract_datetime_absolute( $_[0]->start )
};
- $@ = undef; # clear the eval() error message
return $dur if defined $dur;
Modified: trunk/libdatetime-set-perl/lib/DateTime/SpanSet.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-set-perl/lib/DateTime/SpanSet.pm?rev=32914&op=diff
==============================================================================
--- trunk/libdatetime-set-perl/lib/DateTime/SpanSet.pm (original)
+++ trunk/libdatetime-set-perl/lib/DateTime/SpanSet.pm Thu Apr 9 16:38:23 2009
@@ -516,11 +516,14 @@
sub duration {
my $dur;
+ return DateTime::Duration->new( seconds => 0 )
+ if $_[0]->{set}->is_empty;
+
+ local $@;
eval {
local $SIG{__DIE__}; # don't want to trap this (rt ticket 5434)
$dur = $_[0]->{set}->size
};
- $@ = undef; # clear the eval() error message
return $dur if defined $dur && ref( $dur );
return DateTime::Infinite::Future->new -
Modified: trunk/libdatetime-set-perl/t/08span.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-set-perl/t/08span.t?rev=32914&op=diff
==============================================================================
--- trunk/libdatetime-set-perl/t/08span.t (original)
+++ trunk/libdatetime-set-perl/t/08span.t Thu Apr 9 16:38:23 2009
@@ -3,7 +3,7 @@
use strict;
use Test::More;
-plan tests => 7;
+plan tests => 8;
use DateTime;
use DateTime::Duration;
@@ -52,5 +52,17 @@
is( $span->duration->seconds , DateTime::Set::INFINITY, "infinite duration" );
}
+{
+ # empty span
+ my $span1 = DateTime::Span->from_datetimes(
+ start => DateTime->new( year => 2000 ),
+ end => DateTime->new( year => 2001 ) );
+ my $span2 = DateTime::Span->from_datetimes(
+ start => DateTime->new( year => 2003 ),
+ end => DateTime->new( year => 2004 ) );
+ my $empty = $span1->intersection($span2);
+ is( $empty->duration->seconds , 0, "null duration" );
+}
+
1;
More information about the Pkg-perl-cvs-commits
mailing list