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