r64868 - in /branches/upstream/libset-intspan-perl/current: Changes IntSpan.pm META.yml t/spans.t
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sat Nov 13 22:28:00 UTC 2010
Author: gregoa
Date: Sat Nov 13 22:27:52 2010
New Revision: 64868
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=64868
Log:
[svn-upgrade] new version libset-intspan-perl (1.16)
Modified:
branches/upstream/libset-intspan-perl/current/Changes
branches/upstream/libset-intspan-perl/current/IntSpan.pm
branches/upstream/libset-intspan-perl/current/META.yml
branches/upstream/libset-intspan-perl/current/t/spans.t
Modified: branches/upstream/libset-intspan-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libset-intspan-perl/current/Changes?rev=64868&op=diff
==============================================================================
--- branches/upstream/libset-intspan-perl/current/Changes (original)
+++ branches/upstream/libset-intspan-perl/current/Changes Sat Nov 13 22:27:52 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: branches/upstream/libset-intspan-perl/current/IntSpan.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libset-intspan-perl/current/IntSpan.pm?rev=64868&op=diff
==============================================================================
--- branches/upstream/libset-intspan-perl/current/IntSpan.pm (original)
+++ branches/upstream/libset-intspan-perl/current/IntSpan.pm Sat Nov 13 22:27:52 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: branches/upstream/libset-intspan-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libset-intspan-perl/current/META.yml?rev=64868&op=diff
==============================================================================
--- branches/upstream/libset-intspan-perl/current/META.yml (original)
+++ branches/upstream/libset-intspan-perl/current/META.yml Sat Nov 13 22:27:52 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: branches/upstream/libset-intspan-perl/current/t/spans.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libset-intspan-perl/current/t/spans.t?rev=64868&op=diff
==============================================================================
--- branches/upstream/libset-intspan-perl/current/t/spans.t (original)
+++ branches/upstream/libset-intspan-perl/current/t/spans.t Sat Nov 13 22:27:52 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