Attachment 952169 Details for Bug 1132321 – Fix ported to perl-5.18.4

[patch] Fix ported to perl-5.18.4

perl-5.18.4-CPAN-Attemp-to-create-site-library-directories-on-first-t.patch (text/plain), 1.94 KB, created by Petr Pisar on 2014-10-30 14:35:54 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Petr Pisar

Created: 2014-10-30 14:35:54 UTC

Size: 1.94 KB

patch

obsolete

>From 1f6def664f288efbab2b3027ce56d5bbf795fdc6 Mon Sep 17 00:00:00 2001
>From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
>Date: Thu, 30 Oct 2014 13:19:16 +0100
>Subject: [PATCH] Attemp to create site library directories on first time
>MIME-Version: 1.0
>Content-Type: text/plain; charset=UTF-8
>Content-Transfer-Encoding: 8bit
>
>Some vendors configures site library directories into /usr/local, but
>they do not provide the directory on their systems because an
>administrator can have a read-only network-mounted file system there.
>
>When running CPAN for the first time, CPAN cannot find the site
>directories and falls back to local::lib. To restore the user
>expectations with writable /usr/local, this patch tries to create the
>missing directories before checking for their presents.
>
>Signed-off-by: Petr PÃsaÅ <ppisar@redhat.com>
>
>diff --git a/cpan/CPAN/lib/CPAN/FirstTime.pm b/cpan/CPAN/lib/CPAN/FirstTime.pm
>index b099b04..3475368 100644
>--- a/cpan/CPAN/lib/CPAN/FirstTime.pm
>+++ b/cpan/CPAN/lib/CPAN/FirstTime.pm
>@@ -2010,6 +2010,24 @@ sub _print_urllist {
> }
> 
> sub _can_write_to_libdirs {
>+    for ($Config{installsitelib}, $Config{installsitearch}) {
>+        if (!-d $_) {
>+            $CPAN::Frontend->mywarn(sprintf(
>+                    qq{Perl site library directory "%s" does not exist.\n},
>+                $_));
>+            File::Path::make_path($_, { error => \my $failure });
>+            if (@$failure) {
>+                $CPAN::Frontend->mywarn(sprintf(
>+                        qq{Perl site library directory "%s" } .
>+                        qq{could not been created: %s.\n},
>+                    $_, ${$$failure[0]}{$_}));
>+            } else {
>+                $CPAN::Frontend->mywarn(sprintf(
>+                        qq{Perl site library directory "%s" created.\n},
>+                    $_));
>+            }
>+        }
>+    }
>     return -w $Config{installprivlib}
>         && -w $Config{installarchlib}
>         && -w $Config{installsitelib}
>-- 
>1.9.3
>

Actions: View | Diff

Attachments on bug 1132321: 952169