Skip Menu |
 

This queue is for tickets about the CPAN CPAN distribution.

Report information
The Basics
Id: 99905
Status: new
Priority: 0/
Queue: CPAN

People
Owner: Nobody in particular
Requestors: ppisar [...] redhat.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: 2.06-TRIAL
Fixed in: (no value)

Attachments
0001-Attemp-to-create-site-library-directories-on-first-t.patch



Subject: Create missing site library directories
Download (untitled) / with headers
text/plain 462b
Some vendors configure 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, atteched patch tries to create the missing directories before checking for their presence.
Subject: 0001-Attemp-to-create-site-library-directories-on-first-t.patch
From e8db9146beb7002f913c5687cf97d0d7d42b7c07 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> --- lib/CPAN/FirstTime.pm | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/lib/CPAN/FirstTime.pm b/lib/CPAN/FirstTime.pm index d1a8eef..2426812 100644 --- a/lib/CPAN/FirstTime.pm +++ b/lib/CPAN/FirstTime.pm @@ -2046,6 +2046,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


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.