[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