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

sunnavy at bestpractical.com sunnavy at bestpractical.com
Tue Jul 1 14:17:44 EDT 2008


Author: sunnavy
Date: Tue Jul  1 14:17:42 2008
New Revision: 13721

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

Log:
 r13992 at sunnavys-mb:  sunnavy | 2008-07-01 23:55:29 +0800
 revert CPAN.yml back


Modified: Shipwright/trunk/lib/Shipwright/Source/CPAN.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/CPAN.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/CPAN.pm	Tue Jul  1 14:17:42 2008
@@ -32,26 +32,26 @@
     my $class = shift;
     my $self  = $class->SUPER::new(@_);
 
-#    CPAN::Config->use;
-#
-#    mkdir File::Spec->catfile( $cpan_dir, 'CPAN' );
-#    my $config_file = File::Spec->catfile( $cpan_dir, 'CPAN', 'MyConfig.pm' );
-#
-#    unless ( -f $config_file ) {
-#        $CPAN::Config->{cpan_home} = File::Spec->catfile($cpan_dir);
-#        $CPAN::Config->{build_dir} = File::Spec->catfile( $cpan_dir, 'build' );
-#        $CPAN::Config->{histfile} =
-#          File::Spec->catfile( $cpan_dir, 'histfile' );
-#        $CPAN::Config->{keep_source_where} =
-#          File::Spec->catfile( $cpan_dir, 'sources' );
-#        $CPAN::Config->{prefs_dir} = File::Spec->catfile( $cpan_dir, 'prefs' );
-#        $CPAN::Config->{prerequisites_policy} = 'follow';
-#        $CPAN::Config->{urllist}              = [];
-#        write_file( $config_file,
-#            Data::Dumper->Dump( [$CPAN::Config], ['$CPAN::Config'] ) );
-#
-#    }
-#    require CPAN::MyConfig;
+    CPAN::Config->use;
+
+    mkdir File::Spec->catfile( $cpan_dir, 'CPAN' );
+    my $config_file = File::Spec->catfile( $cpan_dir, 'CPAN', 'MyConfig.pm' );
+
+    unless ( -f $config_file ) {
+        $CPAN::Config->{cpan_home} = File::Spec->catfile($cpan_dir);
+        $CPAN::Config->{build_dir} = File::Spec->catfile( $cpan_dir, 'build' );
+        $CPAN::Config->{histfile} =
+          File::Spec->catfile( $cpan_dir, 'histfile' );
+        $CPAN::Config->{keep_source_where} =
+          File::Spec->catfile( $cpan_dir, 'sources' );
+        $CPAN::Config->{prefs_dir} = File::Spec->catfile( $cpan_dir, 'prefs' );
+        $CPAN::Config->{prerequisites_policy} = 'follow';
+        $CPAN::Config->{urllist}              = [];
+        write_file( $config_file,
+            Data::Dumper->Dump( [$CPAN::Config], ['$CPAN::Config'] ) );
+
+    }
+    require CPAN::MyConfig;
     return $self;
 }
 



More information about the Bps-public-commit mailing list