[Bps-public-commit] r16867 - in Shipwright/trunk: lib/Shipwright/Source

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon Nov 17 11:23:03 2008
New Revision: 16867

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Source/CPAN.pm

Log:
 r17768 at sunnavys-mb:  sunnavy | 2008-11-18 00:22:42 +0800
 set default urllist if it is empty


Modified: Shipwright/trunk/lib/Shipwright/Source/CPAN.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/CPAN.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/CPAN.pm	Mon Nov 17 11:23:03 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'] ) );