Revert "Update Unicode-Collate to CPAN version 0.71"

This reverts commit cac3df65afe2fed9ad80147a24b5ae6ea601a609.

Backing out change to XS

5 files changed, 5 insertions, 10 deletions

diff --git a/cpan/Unicode-Collate/Changes b/cpan/Unicode-Collate/Changes
index d5fd8b42d6..c7bba12874 100644
--- a/cpan/Unicode-Collate/Changes
+++ b/cpan/Unicode-Collate/Changes
@@ -1,11 +1,7 @@
 Revision history for Perl module Unicode::Collate.
 
-0.71  Tue Jan 18 22:29:44 2011
-    - t/loc_test.t should not fail without Unicode::Normalize.
-
 0.70  Sun Jan 16 20:31:07 2011
-    - Now U::C::Locale->new will use the compiled DUCET via XS if available.
-      added some tests in t/loc_test.t.
+    - Now U::C::Locale->new will use the compiled DUCET via XS.
 
 0.69  Sat Jan 15 19:41:11 2011
     - clarified about XSUB. revised INSTALL in README.
diff --git a/cpan/Unicode-Collate/Collate.pm b/cpan/Unicode-Collate/Collate.pm
index 4268b45cfc..05822b2c11 100644
--- 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.71';
+our $VERSION = '0.70';
 our $PACKAGE = __PACKAGE__;
 
 require DynaLoader;
diff --git a/cpan/Unicode-Collate/Collate/Locale.pm b/cpan/Unicode-Collate/Collate/Locale.pm
index c5891444b9..39f04fcab5 100644
--- a/cpan/Unicode-Collate/Collate/Locale.pm
+++ b/cpan/Unicode-Collate/Collate/Locale.pm
@@ -4,7 +4,7 @@ use strict;
 use Carp;
 use base qw(Unicode::Collate);
 
-our $VERSION = '0.71';
+our $VERSION = '0.70';
 
 use File::Spec;
 
diff --git a/cpan/Unicode-Collate/README b/cpan/Unicode-Collate/README
index 002058ffb7..7142c5fb2c 100644
--- a/cpan/Unicode-Collate/README
+++ b/cpan/Unicode-Collate/README
@@ -1,4 +1,4 @@
-Unicode/Collate version 0.71
+Unicode/Collate version 0.70
 ===============================
 
 NAME
diff --git a/cpan/Unicode-Collate/t/loc_test.t b/cpan/Unicode-Collate/t/loc_test.t
index 8d7d74a816..60c9773af3 100644
--- a/cpan/Unicode-Collate/t/loc_test.t
+++ b/cpan/Unicode-Collate/t/loc_test.t
@@ -130,8 +130,7 @@ ok("@sortFr" eq "@listFr");
 
 {
     my $keyXS = '__useXS'; # see Unicode::Collate internal
-    my $noLoc = Unicode::Collate->new(normalization => undef);
-    my $UseXS = ref($noLoc->{$keyXS});
+    my $UseXS = ref Unicode::Collate->new->{$keyXS};
     ok(ref($Collator->{$keyXS}), $UseXS);
     ok(ref($objFr   ->{$keyXS}), $UseXS);
     ok(ref($objEs   ->{$keyXS}), $UseXS);