Update CPANPLUS to 0.85_06

[p5sagit/p5-mst-13.2.git] / lib / CPANPLUS / Configure / Setup.pm

diff --git a/lib/CPANPLUS/Configure/Setup.pm b/lib/CPANPLUS/Configure/Setup.pm
index 13c5e0a..3bcf8f4 100644 (file)
--- a/lib/CPANPLUS/Configure/Setup.pm
+++ b/lib/CPANPLUS/Configure/Setup.pm
@@ -211,13 +211,13 @@ installation directory.
 I see you already have this file:
     %1
 
-If you continue & save this file, the previous version will be overwritten.
+The file will not be overwritten until you explicitly save it.
 
             ], $file );
             
             redo ASK_CONFIG_TYPE 
                 unless $term->ask_yn(
-                    prompt  => loc( "Shall I overwrite it?"),
+                    prompt  => loc( "Do you wish to use this file?"),
                     default => 'n',
                 );
         }
@@ -969,6 +969,32 @@ Would you like to do this?
 
     {
         ###################
+        ## use sqlite  ? ##
+        ###################
+
+        print loc("
+        
+To limit the amount of RAM used by CPANPLUS, you can use the SQLite 
+source backend instead. Note that it is currently still experimental.
+Would you like to do this?
+
+");
+        my $type    = 'source_engine';
+        my $class   = 'CPANPLUS::Internals::Source::SQLite';
+        my $yn      = $term->ask_yn(
+                        prompt  => loc("Use SQLite?"),
+                        default => $conf->get_conf( $type ) eq $class ? 1 : 0,
+                      );
+        print "\n";
+        print $yn
+                ? loc("I will use SQLite")
+                : loc("I will not use SQLite");
+
+        $conf->set_conf( $type => $class );
+    }
+
+    {
+        ###################
         ## use cpantest? ##
         ###################