From 39fd37654278af08b0418b8e86e428d520a6cbf8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Mon, 6 Feb 2012 13:47:23 +0100
Subject: [PATCH] Fix searching for Unicode::Collate::Locale data

---
 perl-5.14.2-locale-search-inc.patch | 26 ++++++++++++++++++++++++++
 perl.spec                           | 11 ++++++++++-
 2 files changed, 36 insertions(+), 1 deletion(-)
 create mode 100644 perl-5.14.2-locale-search-inc.patch

diff --git a/perl-5.14.2-locale-search-inc.patch b/perl-5.14.2-locale-search-inc.patch
new file mode 100644
index 0000000..65bc86e
--- /dev/null
+++ b/perl-5.14.2-locale-search-inc.patch
@@ -0,0 +1,26 @@
+diff --git a/cpan/Unicode-Collate/Collate/Locale.pm b/cpan/Unicode-Collate/Collate/Locale.pm
+index b26db00..35f4fb3 100644
+--- a/cpan/Unicode-Collate/Collate/Locale.pm
++++ b/cpan/Unicode-Collate/Collate/Locale.pm
+@@ -8,7 +8,6 @@ our $VERSION = '0.73';
+ 
+ use File::Spec;
+ 
+-(my $ModPath = $INC{'Unicode/Collate/Locale.pm'}) =~ s/\.pm$//;
+ my $PL_EXT  = '.pl';
+ 
+ my %LocaleFile = map { ($_, $_) } qw(
+@@ -56,7 +55,12 @@ sub _fetchpl {
+     my $f = $LocaleFile{$accepted};
+     return if !$f;
+     $f .= $PL_EXT;
+-    my $path = File::Spec->catfile($ModPath, $f);
++    my $path;
++    for my $incpath (@INC) {
++	$path = File::Spec->catfile($incpath, 'Unicode', 'Collate', 'Locale', $f);
++	last if -f $path;
++	$path = undef;
++    }
+     my $h = do $path;
+     croak "Unicode/Collate/Locale/$f can't be found" if !$h;
+     return $h;
diff --git a/perl.spec b/perl.spec
index b1517e8..65d74a5 100644
--- a/perl.spec
+++ b/perl.spec
@@ -24,7 +24,7 @@
 Name:           perl
 Version:        %{perl_version}
 # release number must be even higher, because dual-lived modules will be broken otherwise
-Release:        210%{?dist}
+Release:        211%{?dist}
 Epoch:          %{perl_epoch}
 Summary:        Practical Extraction and Report Language
 Group:          Development/Languages
@@ -84,6 +84,10 @@ Patch11:        perl-5.14.2-Don-t-leak-memory-when-accessing-named-capt.patch
 # Fix interrupted reading, rhbz#767931, fixed after 5.15.3.
 Patch12:        perl-5.14.2-add-a-couple-missing-LEAVEs-in-perlio_async_run.patch
 
+# Fix searching for Unicode::Collate::Locale data, rhbz#756118, CPANRT#72666,
+# fixed in Unicode-Collate-0.87.
+Patch13:        perl-5.14.2-locale-search-inc.patch
+
 # Update some of the bundled modules
 # see http://fedoraproject.org/wiki/Perl/perl.spec for instructions
 
@@ -1248,6 +1252,7 @@ tarball from perl.org.
 %patch10 -p1
 %patch11 -p1
 %patch12 -p1
+%patch13 -p1
 
 #copy the example script
 cp -a %{SOURCE5} .
@@ -1450,6 +1455,7 @@ pushd %{build_archlib}/CORE/
     'Fedora Patch10: Change Perl_repeatcpy() to allow count above 2^31' \
     'Fedora Patch11: Fix leak with non-matching named captures' \
     'Fedora Patch12: Fix interrupted reading' \
+    'Fedora Patch13: Fix searching for Unicode::Collate::Locale data' \
     %{nil}
 
 rm patchlevel.bak
@@ -2407,6 +2413,9 @@ sed \
 
 # Old changelog entries are preserved in CVS.
 %changelog
+* Mon Feb 06 2012 Petr Pisar <ppisar@redhat.com> - 4:5.14.2-211
+- Fix searching for Unicode::Collate::Locale data (bug #756118)
+
 * Tue Jan 10 2012 Paul Howarth <paul@city-fan.org> - 4:5.14.2-210
 - Rebuild again now that perl dependency generator is fixed (#772632, #772699)