CPAN::Config use manual install as default for root

atoomic · atoomic · commit 9be3cdd5ecea · 2022-03-30T22:20:06.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
@@ -892,7 +892,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
`@@ -892,7 +892,7 @@ sub init {`
`892`	`892`	`) {`
`893`	`893`	`local $auto_config = 0; # We must ask, even under autoconfig`
`894`	`894`	`local _real_prompt; # We must* show prompt`
`895`		`- my_prompt_loop(install_help => 'local::lib', $matcher,`
	`895`	`+ my_prompt_loop(install_help => ( $> == 0 ? 'manual' : 'local::lib' ), $matcher,`
`896`	`896`	`'local::lib\|sudo\|manual');`
`897`	`897`	`}`
`898`	`898`	`$CPAN::Config->{install_help} \|\|= ''; # Temporary to suppress warnings`