r23481 - in /trunk/libset-infinite-perl: Changes MANIFEST META.yml Makefile.PL debian/changelog lib/Set/Infinite.pm lib/Set/Infinite/Basic.pm t/union.t
ghostbar-guest at users.alioth.debian.org
ghostbar-guest at users.alioth.debian.org
Tue Jul 22 04:20:59 UTC 2008
Author: ghostbar-guest
Date: Tue Jul 22 04:20:56 2008
New Revision: 23481
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=23481
Log:
* New upstream release
Added:
trunk/libset-infinite-perl/t/union.t
- copied unchanged from r23478, branches/upstream/libset-infinite-perl/current/t/union.t
Modified:
trunk/libset-infinite-perl/Changes
trunk/libset-infinite-perl/MANIFEST
trunk/libset-infinite-perl/META.yml
trunk/libset-infinite-perl/Makefile.PL
trunk/libset-infinite-perl/debian/changelog
trunk/libset-infinite-perl/lib/Set/Infinite.pm
trunk/libset-infinite-perl/lib/Set/Infinite/Basic.pm
Modified: trunk/libset-infinite-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-infinite-perl/Changes?rev=23481&op=diff
==============================================================================
--- trunk/libset-infinite-perl/Changes (original)
+++ trunk/libset-infinite-perl/Changes Tue Jul 22 04:20:56 2008
@@ -1,4 +1,11 @@
Revision history for Perl extension Set::Infinite.
+
+0.63 2008-07-21
+- minor tweak in union(); added tests
+
+0.62 2008-07-20
+- fixed a problem in union() that caused first() to return a wrong result.
+ reported by David Gang
0.61 2004-11-03
- some optimization of intersected_spans()
Modified: trunk/libset-infinite-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-infinite-perl/MANIFEST?rev=23481&op=diff
==============================================================================
--- trunk/libset-infinite-perl/MANIFEST (original)
+++ trunk/libset-infinite-perl/MANIFEST Tue Jul 22 04:20:56 2008
@@ -23,6 +23,7 @@
t/select_offset.t
t/size.t
t/basic_intersects.t
+t/union.t
META.yml Module meta-data (added by MakeMaker)
Modified: trunk/libset-infinite-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-infinite-perl/META.yml?rev=23481&op=diff
==============================================================================
--- trunk/libset-infinite-perl/META.yml (original)
+++ trunk/libset-infinite-perl/META.yml Tue Jul 22 04:20:56 2008
@@ -1,11 +1,12 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Set-Infinite
-version: 0.61
+version: 0.63
version_from: lib/Set/Infinite.pm
installdirs: site
requires:
+ Test::More: 0
Time::Local: 0
distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+generated_by: ExtUtils::MakeMaker version 6.30
Modified: trunk/libset-infinite-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-infinite-perl/Makefile.PL?rev=23481&op=diff
==============================================================================
--- trunk/libset-infinite-perl/Makefile.PL (original)
+++ trunk/libset-infinite-perl/Makefile.PL Tue Jul 22 04:20:56 2008
@@ -5,11 +5,14 @@
# the contents of the Makefile that is written.
WriteMakefile(
'ABSTRACT' => 'Infinite Sets math',
- 'AUTHOR' => 'Flavio Soibelmann Glock - fglock at pucrs.br',
+ 'AUTHOR' => 'Flavio S. Glock <fglock at gmail.com>',
'NAME' => 'Set::Infinite',
'VERSION_FROM' => 'lib/Set/Infinite.pm',
'EXCLUDE_EXT' => [ qw(Makefile gz LOG x~~) ],
- 'PREREQ_PM' => { 'Time::Local' => 0 },
+ 'PREREQ_PM' => {
+ 'Time::Local' => 0,
+ 'Test::More' => 0,
+ },
'dist' => { 'COMPRESS' => 'gzip' },
);
Modified: trunk/libset-infinite-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-infinite-perl/debian/changelog?rev=23481&op=diff
==============================================================================
--- trunk/libset-infinite-perl/debian/changelog (original)
+++ trunk/libset-infinite-perl/debian/changelog Tue Jul 22 04:20:56 2008
@@ -1,3 +1,9 @@
+libset-infinite-perl (0.63-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Jose Luis Rivas <ghostbar38 at gmail.com> Mon, 21 Jul 2008 23:49:50 -0430
+
libset-infinite-perl (0.61-2) unstable; urgency=low
* Gave url to download location in debian/copyright.
Modified: trunk/libset-infinite-perl/lib/Set/Infinite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-infinite-perl/lib/Set/Infinite.pm?rev=23481&op=diff
==============================================================================
--- trunk/libset-infinite-perl/lib/Set/Infinite.pm (original)
+++ trunk/libset-infinite-perl/lib/Set/Infinite.pm Tue Jul 22 04:20:56 2008
@@ -43,7 +43,7 @@
BEGIN {
- $VERSION = "0.61";
+ $VERSION = "0.63";
$TRACE = 0; # enable basic trace method execution
$DEBUG_BT = 0; # enable backtrack tracer
$PRETTY_PRINT = 0; # 0 = print 'Too Complex'; 1 = describe functions
@@ -1906,7 +1906,7 @@
=head1 AUTHOR
-Flavio Soibelmann Glock <fglock at pucrs.br>
+Flavio S. Glock <fglock at gmail.com>
=head1 COPYRIGHT
Modified: trunk/libset-infinite-perl/lib/Set/Infinite/Basic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-infinite-perl/lib/Set/Infinite/Basic.pm?rev=23481&op=diff
==============================================================================
--- trunk/libset-infinite-perl/lib/Set/Infinite/Basic.pm (original)
+++ trunk/libset-infinite-perl/lib/Set/Infinite/Basic.pm Tue Jul 22 04:20:56 2008
@@ -660,6 +660,7 @@
}
my @tmp;
+ my $is_real = !$a1->tolerance && !$b1->tolerance;
B: foreach $ib ($ib .. $#{$b_list}) {
foreach $ia ($ia .. $#{$a1->{list}}) {
@tmp = _simple_union($a1->{list}[$ia], $b_list->[$ib], $a1->{tolerance});
@@ -668,7 +669,9 @@
while (1) {
last if $ia >= $#{$a1->{list}};
- last unless _simple_intersects ( $a1->{list}[$ia], $a1->{list}[$ia + 1] );
+ last unless _simple_intersects ( $a1->{list}[$ia], $a1->{list}[$ia + 1] )
+ || $is_real
+ && $a1->{list}[$ia]{b} == $a1->{list}[$ia + 1]{a};
@tmp = _simple_union($a1->{list}[$ia], $a1->{list}[$ia + 1], $a1->{tolerance});
last unless @tmp == 1;
$a1->{list}[$ia] = $tmp[0];
@@ -1146,7 +1149,7 @@
=head1 AUTHOR
- Flavio Soibelmann Glock <fglock at pucrs.br>
+ Flavio S. Glock <fglock at gmail.com>
=cut
More information about the Pkg-perl-cvs-commits
mailing list