CPAN::Config use manual install as default for root

atoomic · atoomic · commit bc2d2670c3aa · 2022-03-31T21:59:30.000Z
Case CPANEL-25605: By default prefer to install CPAN modules to /opt/cpanel/perl5/52* directory. References: CPANEL-23475 Upstream-URL: andk/cpanpm#123
diff --git a/cpan/CPAN/lib/CPAN/FirstTime.pm b/cpan/CPAN/lib/CPAN/FirstTime.pm
@@ -906,7 +906,7 @@ sub init {
     ) {
         local $auto_config = 0; # We *must* ask, even under autoconfig
         local *_real_prompt;    # We *must* show prompt
-        my_prompt_loop(install_help => 'local::lib', $matcher,
+        my_prompt_loop(install_help => ( $> ==  0 ? 'manual' : 'local::lib' ), $matcher,
                    'local::lib|sudo|manual');
     }
     $CPAN::Config->{install_help} ||= ''; # Temporary to suppress warnings

Original file line number	Diff line number	Diff line change
`@@ -906,7 +906,7 @@ sub init {`
`906`	`906`	`) {`
`907`	`907`	`local $auto_config = 0; # We must ask, even under autoconfig`
`908`	`908`	`local _real_prompt; # We must* show prompt`
`909`		`- my_prompt_loop(install_help => 'local::lib', $matcher,`
	`909`	`+ my_prompt_loop(install_help => ( $> == 0 ? 'manual' : 'local::lib' ), $matcher,`
`910`	`910`	`'local::lib\|sudo\|manual');`
`911`	`911`	`}`
`912`	`912`	`$CPAN::Config->{install_help} \|\|= ''; # Temporary to suppress warnings`