[Bps-public-commit] r10003 - bpsbuilder/BPB/lib/BPB

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Wed Dec 19 02:52:25 2007
New Revision: 10003

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

Log:
added lib in install_base to build commands

Modified: bpsbuilder/BPB/lib/BPB/Build.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Build.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Build.pm	Wed Dec 19 02:52:25 2007
@@ -62,7 +62,11 @@
     chdir File::Spec->catfile( 'dists', $dir );
 
     my @commands;
-    my $lib = File::Spec->catfile( $self->install_base, 'lib' );
+    my $lib = " -I" . File::Spec->catfile( $self->install_base, 'lib', 'perl5' );
+    if ( $self->extra_lib ) {
+        $lib .= " -I" . join " -I", map { File::Spec->catfile(
+                $self->install_base, $_ ) }  @{ $self->extra_lib };
+    }
 
     if ( -f '_build' ) {
         $self->_substitute('_build');
@@ -77,7 +81,7 @@
     }
     elsif ( -f 'Build.PL' ) {
         push @commands,
-          $self->perl . " Build.PL --install_base=" . $self->install_base;
+          $self->perl . $lib . " Build.PL --install_base=" . $self->install_base;
         unless ( $self->skip_test ) {
             push @commands, "./Build test";
         }
@@ -85,7 +89,7 @@
     }
     elsif ( -f 'Makefile.PL' ) {
         push @commands,
-          $self->perl . " Makefile.PL INSTALL_BASE=" . $self->install_base;
+          $self->perl . $lib . " Makefile.PL INSTALL_BASE=" . $self->install_base;
         unless ( $self->skip_test ) {
             push @commands, 'make test';
         }