diff options
| author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2011-01-19 14:10:38 +0000 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2011-01-19 14:10:38 +0000 |
| commit | a509bac8b4c551863de4b416de32b0f06063decf (patch) | |
| tree | cf7bb8c86a90776b55670eea7e13553dd11112be /cpan/Unicode-Collate/t/loc_test.t | |
| parent | 1b9043bb5ee28cabe60d5dc8a9c4365e365c7ca0 (diff) | |
| download | perl-a509bac8b4c551863de4b416de32b0f06063decf.tar.gz | |
Revert "Update Unicode-Collate to CPAN version 0.71"
This reverts commit cac3df65afe2fed9ad80147a24b5ae6ea601a609.
Backing out change to XS
Diffstat (limited to 'cpan/Unicode-Collate/t/loc_test.t')
| -rw-r--r-- | cpan/Unicode-Collate/t/loc_test.t | 3 |
1 files changed, 1 insertions, 2 deletions
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); |