diff options
Diffstat (limited to 'meta/recipes-devtools/perl/perl-5.8.8/64_debian_enc2xs_inc.patch')
-rw-r--r-- | meta/recipes-devtools/perl/perl-5.8.8/64_debian_enc2xs_inc.patch | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/meta/recipes-devtools/perl/perl-5.8.8/64_debian_enc2xs_inc.patch b/meta/recipes-devtools/perl/perl-5.8.8/64_debian_enc2xs_inc.patch new file mode 100644 index 0000000000..c207a9380a --- /dev/null +++ b/meta/recipes-devtools/perl/perl-5.8.8/64_debian_enc2xs_inc.patch | |||
@@ -0,0 +1,28 @@ | |||
1 | Tweak enc2xs to handle Debian @INC: ignore missing directories, | ||
2 | follow symlinks (/usr/share/perl/5.8 -> 5.8.4). | ||
3 | |||
4 | diff -Naur --exclude=debian perl-5.8.8.orig/ext/Encode/bin/enc2xs perl-5.8.8/ext/Encode/bin/enc2xs | ||
5 | --- perl-5.8.8.orig/ext/Encode/bin/enc2xs 2004-09-03 01:53:51.000000000 +1000 | ||
6 | +++ perl-5.8.8/ext/Encode/bin/enc2xs 2006-02-03 00:21:32.000000000 +1100 | ||
7 | @@ -909,10 +909,11 @@ | ||
8 | eval { require File::Find; }; | ||
9 | my (@inc, %e2x_dir); | ||
10 | for my $inc (@INC){ | ||
11 | + next unless -d $inc; # skip non-existent directories | ||
12 | push @inc, $inc unless $inc eq '.'; #skip current dir | ||
13 | } | ||
14 | File::Find::find( | ||
15 | - sub { | ||
16 | + { wanted => sub { | ||
17 | my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, | ||
18 | $atime,$mtime,$ctime,$blksize,$blocks) | ||
19 | = lstat($_) or return; | ||
20 | @@ -922,7 +923,7 @@ | ||
21 | $e2x_dir{$File::Find::dir} ||= $mtime; | ||
22 | } | ||
23 | return; | ||
24 | - }, @inc); | ||
25 | + }, follow => 1}, @inc); | ||
26 | warn join("\n", keys %e2x_dir), "\n"; | ||
27 | for my $d (sort {$e2x_dir{$a} <=> $e2x_dir{$b}} keys %e2x_dir){ | ||
28 | $_E2X = $d; | ||