[Bps-public-commit] r16869 - Shipwright/branches/1.10/lib/Shipwright/Source

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon Nov 17 11:31:48 2008
New Revision: 16869

Modified:
   Shipwright/branches/1.10/lib/Shipwright/Source/CPAN.pm

Log:
merged 16867 to 1.1

Modified: Shipwright/branches/1.10/lib/Shipwright/Source/CPAN.pm
==============================================================================
--- Shipwright/branches/1.10/lib/Shipwright/Source/CPAN.pm	(original)
+++ Shipwright/branches/1.10/lib/Shipwright/Source/CPAN.pm	Mon Nov 17 11:31:48 2008
@@ -49,7 +49,9 @@
         $CPAN::Config->{keep_source_where} = catdir( $cpan_dir, 'sources' );
         $CPAN::Config->{prefs_dir}         = catdir( $cpan_dir, 'prefs' );
         $CPAN::Config->{prerequisites_policy} = 'follow';
-        $CPAN::Config->{urllist}              = [];
+        unless ( $CPAN::Config->{urllist} && @{ $CPAN::Config->{urllist} } ) {
+            $CPAN::Config->{urllist} = ['http://search.cpan.org/CPAN'];
+        }
         write_file( $config_file,
             Data::Dumper->Dump( [$CPAN::Config], ['$CPAN::Config'] ) );