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

sunnavy at bestpractical.com sunnavy at bestpractical.com
Tue Nov 18 14:28:09 EST 2008


Author: sunnavy
Date: Tue Nov 18 14:28:08 2008
New Revision: 16888

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

Log:
merged 16887 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	Tue Nov 18 14:28:08 2008
@@ -10,6 +10,7 @@
 use File::Temp qw/tempdir/;
 use File::Slurp;
 use CPAN::DistnameInfo;
+use File::HomeDir;
 
 use base qw/Shipwright::Source::Base/;
 
@@ -37,6 +38,15 @@
         require CPAN::Config;
     }
 
+    unshift @INC, catdir( File::HomeDir->my_home, '.cpan' );
+    if ( Module::Info->new_from_module('CPAN::MyConfig') ) {
+
+        # keep user's CPAN::MyConfig too
+        require CPAN::MyConfig;
+    }
+    shift @INC;
+
+
     mkdir catdir( $cpan_dir, 'CPAN' );
     my $config_file = catfile( $cpan_dir, 'CPAN', 'MyConfig.pm' );
 



More information about the Bps-public-commit mailing list