r64870 - in /trunk/libset-intspan-perl: Changes IntSpan.pm META.yml debian/changelog t/spans.t

[gregoa at users.alioth.debian.org]

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;
         }
     }