r40199 - in /trunk/libdatetime-set-perl: Changes META.yml debian/changelog debian/control debian/rules lib/DateTime/Set.pm
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Sun Jul 19 20:30:42 UTC 2009
Author: ansgar-guest
Date: Sun Jul 19 20:30:32 2009
New Revision: 40199
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=40199
Log:
* New upstream release
* Bump Standards-Version to 3.8.2 (no changes).
* Add myself to Uploaders.
* Build-dep on libdatetime-event-recurrence-perl to enable additional tests.
Modified:
trunk/libdatetime-set-perl/Changes
trunk/libdatetime-set-perl/META.yml
trunk/libdatetime-set-perl/debian/changelog
trunk/libdatetime-set-perl/debian/control
trunk/libdatetime-set-perl/debian/rules
trunk/libdatetime-set-perl/lib/DateTime/Set.pm
Modified: trunk/libdatetime-set-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-set-perl/Changes?rev=40199&op=diff
==============================================================================
--- trunk/libdatetime-set-perl/Changes (original)
+++ trunk/libdatetime-set-perl/Changes Sun Jul 19 20:30:32 2009
@@ -1,4 +1,8 @@
Changes for DateTime::Set
+
+0.28 2009-07-19
+- optimized DateTime::Set->as_list().
+ This works around a segfault reported by Nils Grunwald.
0.27 2009-04-02
- fixed DateTime::Spanset duration() method.
Modified: trunk/libdatetime-set-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-set-perl/META.yml?rev=40199&op=diff
==============================================================================
--- trunk/libdatetime-set-perl/META.yml (original)
+++ trunk/libdatetime-set-perl/META.yml Sun Jul 19 20:30:32 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: DateTime-Set
-version: 0.27
+version: 0.28
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=40199&op=diff
==============================================================================
--- trunk/libdatetime-set-perl/debian/changelog (original)
+++ trunk/libdatetime-set-perl/debian/changelog Sun Jul 19 20:30:32 2009
@@ -1,8 +1,15 @@
-libdatetime-set-perl (0.27-2) UNRELEASED; urgency=low
+libdatetime-set-perl (0.28-1) unstable; urgency=low
+ [ Nathan Handler ]
* debian/watch: Update to ignore development releases.
- -- Nathan Handler <nhandler at ubuntu.com> Sat, 06 Jun 2009 01:33:42 +0000
+ [ Ansgar Burchardt ]
+ * New upstream release
+ * Bump Standards-Version to 3.8.2 (no changes).
+ * Add myself to Uploaders.
+ * Build-dep on libdatetime-event-recurrence-perl to enable additional tests.
+
+ -- Ansgar Burchardt <ansgar at 43-1.org> Sun, 19 Jul 2009 22:30:04 +0200
libdatetime-set-perl (0.27-1) unstable; urgency=low
Modified: trunk/libdatetime-set-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-set-perl/debian/control?rev=40199&op=diff
==============================================================================
--- trunk/libdatetime-set-perl/debian/control (original)
+++ trunk/libdatetime-set-perl/debian/control Sun Jul 19 20:30:32 2009
@@ -3,11 +3,12 @@
Priority: optional
Build-Depends: debhelper (>= 7)
Build-Depends-Indep: perl (>= 5.8.0-7), libdatetime-perl (>= 0.12),
- libparams-validate-perl, libset-infinite-perl (>= 0.59)
+ libparams-validate-perl, libset-infinite-perl (>= 0.59),
+ libdatetime-event-recurrence-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Jaldhar H. Vyas <jaldhar at debian.org>, Gunnar Wolf <gwolf at debian.org>,
- gregor herrmann <gregoa at debian.org>
-Standards-Version: 3.8.1
+ gregor herrmann <gregoa at debian.org>, Ansgar Burchardt <ansgar at 43-1.org>
+Standards-Version: 3.8.2
Homepage: http://search.cpan.org/dist/DateTime-Set/
Vcs-Svn: svn://svn.debian.org/svn/pkg-perl/trunk/libdatetime-set-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libdatetime-set-perl/
Modified: trunk/libdatetime-set-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdatetime-set-perl/debian/rules?rev=40199&op=diff
==============================================================================
--- trunk/libdatetime-set-perl/debian/rules (original)
+++ trunk/libdatetime-set-perl/debian/rules Sun Jul 19 20:30:32 2009
@@ -1,23 +1,3 @@
#!/usr/bin/make -f
-
-build: build-stamp
-build-stamp:
- dh build
- touch $@
-
-clean:
+%:
dh $@
-
-install: install-stamp
-install-stamp: build-stamp
- dh install
- touch $@
-
-binary-arch:
-
-binary-indep: install
- dh $@
-
-binary: binary-arch binary-indep
-
-.PHONY: binary binary-arch binary-indep install clean build
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=40199&op=diff
==============================================================================
--- trunk/libdatetime-set-perl/lib/DateTime/Set.pm (original)
+++ trunk/libdatetime-set-perl/lib/DateTime/Set.pm Sun Jul 19 20:30:32 2009
@@ -16,7 +16,7 @@
use constant NEG_INFINITY => -1 * (100 ** 100 ** 100);
BEGIN {
- $VERSION = '0.27';
+ $VERSION = '0.28';
}
@@ -488,7 +488,6 @@
return $dt2;
}
-
sub as_list {
my $self = shift;
return undef unless ref( $self->{set} );
@@ -511,16 +510,22 @@
$set->min->is_infinite;
my @result;
- # we should extract _copies_ of the set elements,
- # such that the user can't modify the set indirectly
-
- my $iter = $set->iterator;
- while ( my $dt = $iter->next )
- {
- push @result, $dt
- if ref( $dt ); # we don't want to return INFINITY value
- };
-
+ my $next = $self->min;
+ if ( $span ) {
+ my $next1 = $span->min;
+ $next = $next1 if $next1 && $next1 > $next;
+ $next = $self->current( $next );
+ }
+ my $last = $self->max;
+ if ( $span ) {
+ my $last1 = $span->max;
+ $last = $last1 if $last1 && $last1 < $last;
+ }
+ do {
+ push @result, $next if !$span || $span->contains($next);
+ $next = $self->next( $next );
+ }
+ while $next && $next <= $last;
return @result;
}
More information about the Pkg-perl-cvs-commits
mailing list