diff options
Diffstat (limited to 'meta/recipes-devtools/perl/perl-5.12.2/debian/enc2xs_inc.diff')
-rw-r--r-- | meta/recipes-devtools/perl/perl-5.12.2/debian/enc2xs_inc.diff | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/meta/recipes-devtools/perl/perl-5.12.2/debian/enc2xs_inc.diff b/meta/recipes-devtools/perl/perl-5.12.2/debian/enc2xs_inc.diff deleted file mode 100644 index e96d53d8f..000000000 --- a/meta/recipes-devtools/perl/perl-5.12.2/debian/enc2xs_inc.diff +++ /dev/null @@ -1,51 +0,0 @@ -Upstream-Status:Inappropriate [debian patch] - -Subject: Tweak enc2xs to follow symlinks and ignore missing @INC directories. -Bug-Debian: http://bugs.debian.org/290336 - -- ignore missing directories, -- follow symlinks (/usr/share/perl/5.8 -> 5.8.4). - - ---- - cpan/Encode/bin/enc2xs | 8 ++++---- - 1 files changed, 4 insertions(+), 4 deletions(-) - -diff --git a/cpan/Encode/bin/enc2xs b/cpan/Encode/bin/enc2xs -index 773c0a0..049ecf9 100644 ---- a/cpan/Encode/bin/enc2xs -+++ b/cpan/Encode/bin/enc2xs -@@ -924,11 +924,11 @@ use vars qw( - sub find_e2x{ - eval { require File::Find; }; - my (@inc, %e2x_dir); -- for my $inc (@INC){ -+ for my $inc (grep -d, @INC){ - 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; -@@ -938,7 +938,7 @@ sub find_e2x{ - $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; -@@ -1005,7 +1005,7 @@ sub make_configlocal_pm { - $LocalMod{$enc} ||= $mod; - } - }; -- File::Find::find({wanted => $wanted}, @INC); -+ File::Find::find({wanted => $wanted, follow => 1}, grep -d, @INC); - $_ModLines = ""; - for my $enc ( sort keys %LocalMod ) { - $_ModLines .= --- -tg: (c823880..) debian/enc2xs_inc (depends on: upstream) |