[Bps-public-commit] r9992 - bpsbuilder/BPB/lib/BPB/Source

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Dec 18 14:58:05 2007
New Revision: 9992

Modified:
   bpsbuilder/BPB/lib/BPB/Source/CPAN.pm

Log:
we should require module name instead of file path, also added independent $CPAN::Config->{prefs_dir}

Modified: bpsbuilder/BPB/lib/BPB/Source/CPAN.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Source/CPAN.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Source/CPAN.pm	Tue Dec 18 14:58:05 2007
@@ -24,20 +24,20 @@
     my $config_file = File::Spec->catfile( $cpan_dir, 'CPAN', 'MyConfig.pm' );
 
     unless ( -f $config_file ) {
-        my $config = $CPAN::Config;
         $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';
-
         write_file( $config_file,
             Data::Dumper->Dump( [$CPAN::Config], ['$CPAN::Config'] ) );
 
     }
-    require $config_file;
+    require CPAN::MyConfig;
     return $self;
 }