Update Unicode-Collate to CPAN version 0.78

  [DELTA]

  0.78  Mon Jul 25 21:29:50 2011
    - tried fixing the tarball with world writable files.
      ( http://www.perlmonks.org/?node_id=731935 )

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 7599423..fd3b1bb 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1965,7 +1965,7 @@ use File::Glob qw(:case);
     'Unicode::Collate' =>
        {
        'MAINTAINER'    => 'sadahiro',
-       'DISTRIBUTION'  => 'SADAHIRO/Unicode-Collate-0.77-withoutworldwriteables.tar.gz',
+       'DISTRIBUTION'  => 'SADAHIRO/Unicode-Collate-0.78.tar.gz',
        'FILES'         => q[cpan/Unicode-Collate],
        'EXCLUDED'      => [ qr{N$},
                    qr{^data/},

diff --git a/cpan/Unicode-Collate/Changes b/cpan/Unicode-Collate/Changes
index 7fc92e7..4794583 100644 (file)
--- a/cpan/Unicode-Collate/Changes
+++ b/cpan/Unicode-Collate/Changes
@@ -1,5 +1,9 @@
 Revision history for Perl module Unicode::Collate.
 
+0.78  Mon Jul 25 21:29:50 2011
+    - tried fixing the tarball with world writable files.
+      ( http://www.perlmonks.org/?node_id=731935 )
+
 0.77  Sun Jul  3 21:15:08 2011
     - xs: [perl #93470] [PATCH] consting in Collate.xs by Robin Barker.
 

diff --git a/cpan/Unicode-Collate/Collate.pm b/cpan/Unicode-Collate/Collate.pm
index d72dadf..fac2cce 100644 (file)
--- a/cpan/Unicode-Collate/Collate.pm
+++ b/cpan/Unicode-Collate/Collate.pm
@@ -14,7 +14,7 @@ use File::Spec;
 
 no warnings 'utf8';
 
-our $VERSION = '0.77';
+our $VERSION = '0.78';
 our $PACKAGE = __PACKAGE__;
 
 ### begin XS only ###
@@ -789,9 +789,9 @@ sub _eqArray($$$)
 
 ##
 ## (int position, int length)
-## int position = index(string, substring, position, [undoc'ed grobal])
+## int position = index(string, substring, position, [undoc'ed global])
 ##
-## With "grobal" (only for the list context),
+## With "global" (only for the list context),
 ##  returns list of arrayref[position, length].
 ##
 sub index
@@ -802,7 +802,7 @@ sub index
     my $subE = $self->splitEnt(shift);
     my $pos  = @_ ? shift : 0;
        $pos  = 0 if $pos < 0;
-    my $grob = shift;
+    my $glob = shift;
 
     my $lev  = $self->{level};
     my $v2i  = $self->{UCA_Version} >= 9 &&
@@ -810,7 +810,7 @@ sub index
 
     if (! @$subE) {
        my $temp = $pos <= 0 ? 0 : $len <= $pos ? $len : $pos;
-       return $grob
+       return $glob
            ? map([$_, 0], $temp..$len)
            : wantarray ? ($temp,0) : $temp;
     }
@@ -896,7 +896,7 @@ sub index
                        _eqArray(\@strWt, \@subWt, $lev)) {
                my $temp = $iniPos[0] + $pos;
 
-               if ($grob) {
+               if ($glob) {
                    push @g_ret, [$temp, $finPos[$#subWt] - $iniPos[0]];
                    splice @strWt,  0, $#subWt;
                    splice @iniPos, 0, $#subWt;
@@ -914,7 +914,7 @@ sub index
        }
     }
 
-    return $grob
+    return $glob
        ? @g_ret
        : wantarray ? () : NOMATCHPOS;
 }

diff --git a/cpan/Unicode-Collate/Makefile.PL b/cpan/Unicode-Collate/Makefile.PL
index 30d6fc0..3270c66 100644 (file)
--- a/cpan/Unicode-Collate/Makefile.PL
+++ b/cpan/Unicode-Collate/Makefile.PL
@@ -12,7 +12,10 @@ if (-f "Collate.xs") {
 }
 
 WriteMakefile(
+    'AUTHOR'           => 'SADAHIRO Tomoyuki <SADAHIRO@cpan.org>',
+    'ABSTRACT'         => 'Unicode Collation Algorithm',
     'INSTALLDIRS'      => $] >= 5.007002 ? 'perl' : 'site',
+    'LICENSE'          => 'perl',
     'NAME'             => 'Unicode::Collate',
     'VERSION_FROM'     => 'Collate.pm', # finds $VERSION
     'clean'            => $clean,

diff --git a/cpan/Unicode-Collate/README b/cpan/Unicode-Collate/README
index 3e3b9ad..89368c6 100644 (file)
--- a/cpan/Unicode-Collate/README
+++ b/cpan/Unicode-Collate/README
@@ -1,4 +1,4 @@
-Unicode/Collate version 0.77
+Unicode/Collate version 0.78
 ===============================
 
 NAME

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index db95e6f..6996911 100644 (file)
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -130,6 +130,10 @@ Only interpret an initial array reference as a list of colors, not any initial
 reference, allowing the colored function to work properly on objects with
 stringification defined.
 
+=item *
+
+L<Unicode::Collate> has been upgraded from version 0.77 to version 0.78
+
 =back
 
 =head2 Removed Modules and Pragmata