r64870 - in /trunk/libset-intspan-perl: Changes IntSpan.pm META.yml debian/changelog t/spans.t
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sat Nov 13 22:29:33 UTC 2010
Author: gregoa
Date: Sat Nov 13 22:29:24 2010
New Revision: 64870
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=64870
Log:
New upstream release.
Modified:
trunk/libset-intspan-perl/Changes
trunk/libset-intspan-perl/IntSpan.pm
trunk/libset-intspan-perl/META.yml
trunk/libset-intspan-perl/debian/changelog
trunk/libset-intspan-perl/t/spans.t
Modified: trunk/libset-intspan-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-intspan-perl/Changes?rev=64870&op=diff
==============================================================================
--- trunk/libset-intspan-perl/Changes (original)
+++ trunk/libset-intspan-perl/Changes Sat Nov 13 22:29:24 2010
@@ -1,4 +1,7 @@
Revision history for Perl extension Set::IntSpan
+
+1.16 2010 Nov 10
+ - unit test fix for Perl 5.6.2 on x86_64
1.15 2010 Nov 04
- added span_ord() method
Modified: trunk/libset-intspan-perl/IntSpan.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-intspan-perl/IntSpan.pm?rev=64870&op=diff
==============================================================================
--- trunk/libset-intspan-perl/IntSpan.pm (original)
+++ trunk/libset-intspan-perl/IntSpan.pm Sat Nov 13 22:29:24 2010
@@ -6,7 +6,7 @@
use base qw(Exporter);
use Carp;
-our $VERSION = '1.15';
+our $VERSION = '1.16';
our @EXPORT_OK = qw(grep_set map_set grep_spans map_spans);
use overload
@@ -2330,9 +2330,9 @@
Returns the index I<$i> of the span containing the integer I<$n>,
or C<undef> if I<$n> if not an element of I<$set>.
-To recover the span continaing I<$n>, write
-
- (I<$set>->C<spans>)[I<$i>]
+To recover the span containing I<$n>, write
+
+ ($set->spans)[$i]
=back
@@ -2403,9 +2403,9 @@
=head2 conversion
-In boolean context, a C<$Set::IntSpan> object evaluates to true if it is not empty.
-
-A C<$Set::IntSpan> object stringizes to its run list.
+In boolean context, a C<Set::IntSpan> object evaluates to true if it is not empty.
+
+A C<Set::IntSpan> object stringizes to its run list.
=head1 FUNCTIONS
Modified: trunk/libset-intspan-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-intspan-perl/META.yml?rev=64870&op=diff
==============================================================================
--- trunk/libset-intspan-perl/META.yml (original)
+++ trunk/libset-intspan-perl/META.yml Sat Nov 13 22:29:24 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Set-IntSpan
-version: 1.15
+version: 1.16
abstract: Manages sets of integers, newsrc style
author:
- Steven McDougall (swmcd at world.std.com)
Modified: trunk/libset-intspan-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-intspan-perl/debian/changelog?rev=64870&op=diff
==============================================================================
--- trunk/libset-intspan-perl/debian/changelog (original)
+++ trunk/libset-intspan-perl/debian/changelog Sat Nov 13 22:29:24 2010
@@ -1,3 +1,9 @@
+libset-intspan-perl (1.16-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org> Sat, 13 Nov 2010 23:28:32 +0100
+
libset-intspan-perl (1.15-1) unstable; urgency=low
[ Ansgar Burchardt ]
Modified: trunk/libset-intspan-perl/t/spans.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libset-intspan-perl/t/spans.t?rev=64870&op=diff
==============================================================================
--- trunk/libset-intspan-perl/t/spans.t (original)
+++ trunk/libset-intspan-perl/t/spans.t Sat Nov 13 22:29:24 2010
@@ -68,7 +68,7 @@
}
-my @Maps = ('', '$_', 'mirror', 'mirror_mirror', 'double_up', 'stretch_up');
+my @Maps = ('()', '$_', 'mirror', 'mirror_mirror', 'double_up', 'stretch_up');
print "1..", @Sets * (@Greps + @Maps), "\n";
@@ -96,7 +96,7 @@
printf "#%3d: grep_span { %-8s } %-20s -> %s\n",
$N, $Greps[$g], $Sets[$s], $result->run_list;
-
+
equal $result $expected or Not; OK;
}
}
@@ -129,7 +129,7 @@
printf "#%3d: map_span { %-8s } %-20s -> %s\n",
$N, $Maps[$g], $Sets[$s], $result->run_list;
-
+
equal $result $expected or Not; OK;
}
}
More information about the Pkg-perl-cvs-commits
mailing list