From 1c7d6584a7811b7785ae5c1e378f14b5ba0971cf Mon Sep 17 00:00:00 2001 From: takeshi_hoshina Date: Mon, 2 Nov 2020 11:07:33 +0900 Subject: basesystem-jj recipes --- .../perl/perl/debian/cpan-missing-site-dirs.diff | 63 ---------------------- 1 file changed, 63 deletions(-) delete mode 100644 external/poky/meta/recipes-devtools/perl/perl/debian/cpan-missing-site-dirs.diff (limited to 'external/poky/meta/recipes-devtools/perl/perl/debian/cpan-missing-site-dirs.diff') diff --git a/external/poky/meta/recipes-devtools/perl/perl/debian/cpan-missing-site-dirs.diff b/external/poky/meta/recipes-devtools/perl/perl/debian/cpan-missing-site-dirs.diff deleted file mode 100644 index c597701c..00000000 --- a/external/poky/meta/recipes-devtools/perl/perl/debian/cpan-missing-site-dirs.diff +++ /dev/null @@ -1,63 +0,0 @@ -From d33d46963035ef726144dc66be2ae9c00aec0333 Mon Sep 17 00:00:00 2001 -From: Niko Tyni -Date: Tue, 16 Oct 2012 23:07:56 +0300 -Subject: Fix CPAN::FirstTime defaults with nonexisting site dirs if a parent - is writable - -The site directories do not exist on a typical Debian system. The build -systems will create them when necessary, so there's no need for a prompt -suggesting local::lib if the first existing parent directory is writable. - -Also, writability of the core directories is not interesting as we -explicitly tell CPAN not to touch those with INSTALLDIRS=site. - -Bug-Debian: http://bugs.debian.org/688842 -Patch-Name: debian/cpan-missing-site-dirs.diff -Upstream-Status: Pending ---- - cpan/CPAN/lib/CPAN/FirstTime.pm | 31 +++++++++++++++++++++++++++---- - 1 file changed, 27 insertions(+), 4 deletions(-) - -diff --git a/cpan/CPAN/lib/CPAN/FirstTime.pm b/cpan/CPAN/lib/CPAN/FirstTime.pm -index 33054cd..7b0becf 100644 ---- a/cpan/CPAN/lib/CPAN/FirstTime.pm -+++ b/cpan/CPAN/lib/CPAN/FirstTime.pm -@@ -2057,11 +2057,34 @@ sub _print_urllist { - }; - } - -+# Debian modification: return true if this directory -+# or the first existing one upwards is writable -+sub _can_write_to_this_or_parent { -+ my ($dir) = @_; -+ my @parts = File::Spec->splitdir($dir); -+ while (@parts) { -+ my $cur = File::Spec->catdir(@parts); -+ return 1 if -w $cur; -+ return 0 if -e _; -+ pop @parts; -+ } -+ return 0; -+} -+ -+# Debian specific modification: the site directories don't necessarily -+# exist on the system, but the build systems create them when necessary, -+# so return true if the first existing directory upwards is writable -+# -+# Furthermore, on Debian, only test the site directories -+# (installsite*, expanded to /usr/local/{share,lib}/perl), -+# not the core ones -+# (install*lib, expanded to /usr/{share,lib}/perl). -+# We pass INSTALLDIRS=site by default to keep CPAN from touching -+# the core directories. -+ - sub _can_write_to_libdirs { -- return -w $Config{installprivlib} -- && -w $Config{installarchlib} -- && -w $Config{installsitelib} -- && -w $Config{installsitearch} -+ return _can_write_to_this_or_parent($Config{installsitelib}) -+ && _can_write_to_this_or_parent($Config{installsitearch}) - } - - sub _using_installbase { -- cgit 1.2.3-korg