[Bps-public-commit] r9994 - in bpsbuilder/BPB/lib: BPB

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Dec 18 15:10:20 2007
New Revision: 9994

Modified:
   bpsbuilder/BPB/lib/BPB.pm
   bpsbuilder/BPB/lib/BPB/Build.pm

Log:
added lib in install base to @INC, also extended it for adding extra lib dir, e.g. darwin-thread-multi-2level dir on mac os x

Modified: bpsbuilder/BPB/lib/BPB.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB.pm	(original)
+++ bpsbuilder/BPB/lib/BPB.pm	Tue Dec 18 15:10:20 2007
@@ -54,6 +54,11 @@
 
     $self->build( BPB::Build->new( %{ $self->config->name->{build} } ) );
 
+    unshift @INC, File::Spec->catfile( $self->build->install_base, 'lib', 'perl5' );
+    for ( @{$self->build->extra_lib} ) {
+        unshift @INC, File::Spec->catfile( $self->build->install_base, $_ );
+    }
+
     return $self;
 }
 

Modified: bpsbuilder/BPB/lib/BPB/Build.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Build.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Build.pm	Tue Dec 18 15:10:20 2007
@@ -7,7 +7,7 @@
 use base qw/Class::Accessor::Fast/;
 
 __PACKAGE__->mk_accessors(
-    qw/install_base perl build_base skip_test commands/);
+    qw/install_base perl build_base skip_test commands extra_lib/);
 
 use File::Spec;
 use File::Temp qw/tempdir/;
@@ -21,6 +21,7 @@
     my $self  = {@_};
     $self->{build_base} =
       File::Spec->catfile( tempdir( CLEANUP => 0 ), 'build' );
+
     bless $self, $class;
 }
 
@@ -61,6 +62,7 @@
     chdir File::Spec->catfile( 'dists', $dir );
 
     my @commands;
+    my $lib = File::Spec->catfile( $self->install_base, 'lib' );
 
     if ( -f '_build' ) {
         $self->_substitute('_build');