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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon Jan  7 04:22:01 2008
New Revision: 10258

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

Log:
updated build script

Modified: bpsbuilder/BPB/lib/BPB/Backend.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Backend.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Backend.pm	Mon Jan  7 04:22:01 2008
@@ -68,13 +68,14 @@
 my $build_base = getcwd;
 
 my %args;
-GetOptions( \%args, 'install-base=s', 'perl=s', 'skip-test' );
+GetOptions( \%args, 'install-base=s', 'perl=s', 'skip-test', 'skip=s' );
 
 unless ( $args{'install-base'} ) {
     die 'need install-base option';
 }
 
 $args{perl} ||= 'perl';
+$args{skip} = [ split /,\s*/, $args{skip} || '' ];
 $ENV{DYLD_LIBRARY_PATH} = File::Spec->catfile( $args{'install-base'}, 'lib' )
     . ':' . $ENV{DYLD_LIBRARY_PATH};
 $ENV{LD_LIBRARY_PATH} = File::Spec->catfile( $args{'install-base'}, 'lib' ) .
@@ -96,9 +97,10 @@
 
 my $order = parse_order( File::Spec->catfile( 'bpb', 'order.yml' ) );
 
-for (@$order) {
-    s/::/-/g;
-    install($_);
+for my $dist (@$order) {
+    unless ( grep { $dist eq $dist } @{ $args{skip} } ) {
+        install($dist);
+    }
     chdir $build_base;
 }