From 0b1cefdf8356baaef3ef3564aa7a096e78a2b2be Mon Sep 17 00:00:00 2001
From: Sam Brightman <sam.brightman@gmail.com>
Date: Tue, 20 Sep 2016 11:23:08 +0200
Subject: [PATCH] Prevent warning about write access when using --info

---
 lib/App/cpanminus/script.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/App/cpanminus/script.pm b/lib/App/cpanminus/script.pm
index 7873c16ec..9fdb7fddb 100644
--- a/lib/App/cpanminus/script.pm
+++ b/lib/App/cpanminus/script.pm
@@ -955,7 +955,7 @@ sub bootstrap_local_lib {
     }
 
     # root, locally-installed perl or --sudo: don't care about install_base
-    return if $self->{sudo} or (_writable($Config{installsitelib}) and _writable($Config{installsitebin}));
+    return if $self->{sudo} or $self->{cmd} eq 'info' or (_writable($Config{installsitelib}) and _writable($Config{installsitebin}));
 
     # local::lib is configured in the shell -- yay
     if ($ENV{PERL_MM_OPT} and ($ENV{MODULEBUILDRC} or $ENV{PERL_MB_OPT})) {