diff options
author | Richard Purdie <richard@openedhand.com> | 2007-05-27 21:04:11 +0000 |
---|---|---|
committer | Richard Purdie <richard@openedhand.com> | 2007-05-27 21:04:11 +0000 |
commit | 80785a10721e523029c27f264fca5a892cf68e36 (patch) | |
tree | d33b51538db742a5d6f8df6b184b5531e8bf68ce /meta/packages/perl/perl-5.8.8/64_debian_enc2xs_inc.patch | |
parent | bd4fd028a799e804d803eac14ccb9e164ecc4938 (diff) | |
download | openembedded-core-80785a10721e523029c27f264fca5a892cf68e36.tar.gz openembedded-core-80785a10721e523029c27f264fca5a892cf68e36.tar.bz2 openembedded-core-80785a10721e523029c27f264fca5a892cf68e36.tar.xz openembedded-core-80785a10721e523029c27f264fca5a892cf68e36.zip |
perl: 5.8.7 -> 5.8.8 (from OE)
git-svn-id: https://svn.o-hand.com/repos/poky/trunk@1785 311d38ba-8fff-0310-9ca6-ca027cbcb966
Diffstat (limited to 'meta/packages/perl/perl-5.8.8/64_debian_enc2xs_inc.patch')
-rw-r--r-- | meta/packages/perl/perl-5.8.8/64_debian_enc2xs_inc.patch | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/meta/packages/perl/perl-5.8.8/64_debian_enc2xs_inc.patch b/meta/packages/perl/perl-5.8.8/64_debian_enc2xs_inc.patch new file mode 100644 index 000000000..c207a9380 --- /dev/null +++ b/meta/packages/perl/perl-5.8.8/64_debian_enc2xs_inc.patch @@ -0,0 +1,28 @@ +Tweak enc2xs to handle Debian @INC: ignore missing directories, +follow symlinks (/usr/share/perl/5.8 -> 5.8.4). + +diff -Naur --exclude=debian perl-5.8.8.orig/ext/Encode/bin/enc2xs perl-5.8.8/ext/Encode/bin/enc2xs +--- perl-5.8.8.orig/ext/Encode/bin/enc2xs 2004-09-03 01:53:51.000000000 +1000 ++++ perl-5.8.8/ext/Encode/bin/enc2xs 2006-02-03 00:21:32.000000000 +1100 +@@ -909,10 +909,11 @@ + eval { require File::Find; }; + my (@inc, %e2x_dir); + for my $inc (@INC){ ++ next unless -d $inc; # skip non-existent directories + push @inc, $inc unless $inc eq '.'; #skip current dir + } + File::Find::find( +- sub { ++ { wanted => sub { + my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, + $atime,$mtime,$ctime,$blksize,$blocks) + = lstat($_) or return; +@@ -922,7 +923,7 @@ + $e2x_dir{$File::Find::dir} ||= $mtime; + } + return; +- }, @inc); ++ }, follow => 1}, @inc); + warn join("\n", keys %e2x_dir), "\n"; + for my $d (sort {$e2x_dir{$a} <=> $e2x_dir{$b}} keys %e2x_dir){ + $_E2X = $d; |