From: Andreas J. Koenig <andreas.koenig.7os6VVqR@franz.ak.mind.de>
Date: Sun, 2 Nov 2008 11:22:29 +0000 (+0100)
Subject: Re: CPAN-1.9301 can't clean bootstrap .cpan
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=71f20845bf38b3faa98fc5d8068e1e7dca33cda5;p=p5sagit%2Fp5-mst-13.2.git

Re: CPAN-1.9301 can't clean bootstrap .cpan
Message-ID: <87abci5swq.fsf@k75.linux.bogus>
Date: Sun, 02 Nov 2008 11:22:29 +0100

p4raw-id: //depot/perl@34702
---

diff --git a/lib/CPAN/FirstTime.pm b/lib/CPAN/FirstTime.pm
index 9a79b5a..858c5d4 100644
--- a/lib/CPAN/FirstTime.pm
+++ b/lib/CPAN/FirstTime.pm
@@ -19,7 +19,7 @@ use File::Basename ();
 use File::Path ();
 use File::Spec ();
 use vars qw($VERSION $urllist);
-$VERSION = "5.5";
+$VERSION = "5.5_01";
 
 =head1 NAME
 
@@ -1198,7 +1198,7 @@ substitute. You can then revisit this dialog with
     #= MIRRORED.BY and conf_sites()
     #
 
-    my_yn_prompt("connect_to_internet_ok" => 0, $matcher);
+    my_yn_prompt("connect_to_internet_ok" => 1, $matcher);
     if ($matcher) {
         if ("urllist" =~ $matcher) {
             # conf_sites would go into endless loop with the smash prompt