s/none/manual/; and adjust 30shell to still pass tests

gentoo-perl · Jan 16, 2011 · f0be26f · f0be26f
1 parent ee9a1d3
commit f0be26f
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/lib/CPAN/FirstTime.pm b/lib/CPAN/FirstTime.pm
@@ -819,7 +819,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,
-                   'local::lib|sudo|none');
+                   'local::lib|sudo|manual');
     }
     $CPAN::Config->{install_help} ||= ''; # Temporary to suppress warnings
 

diff --git a/t/30shell.t b/t/30shell.t
@@ -530,7 +530,9 @@ __END__
 #E:(?s:.*?configure.as.much.as.possible.automatically.*?\])
 ########
 #P:yesplease
-#E:commit: wrote.+?MyConfig
+#E:(commit: wrote.+?MyConfig|You.do.not.have.write.permission)
+########
+#P:# manual
 ########
 #P:# o debug all
 ########