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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Jan  8 04:23:49 2008
New Revision: 10261

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

Log:
added skip args for build script

Modified: bpsbuilder/BPB/lib/BPB/Backend.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Backend.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Backend.pm	Tue Jan  8 04:23:49 2008
@@ -98,7 +98,7 @@
 my $order = parse_order( File::Spec->catfile( 'bpb', 'order.yml' ) );
 
 for my $dist (@$order) {
-    unless ( grep { $dist eq $dist } @{ $args{skip} } ) {
+    unless ( grep { $dist eq $_ } @{ $args{skip} } ) {
         install($dist);
     }
     chdir $build_base;
@@ -187,12 +187,12 @@
           or die $!;
     };
 
-    for my $dir (qw(bin sbin libexec)) {
-        find( $sub,
-            grep { -d $_ }
-              map { File::Spec->catfile( $args{'install-base'}, $_ ) }
-              qw/bin sbin libexec/ );
-    }
+    my @dirs =
+      grep { -d $_ }
+      map { File::Spec->catfile( $args{install_base}, $_ ) }
+      qw/bin sbin libexec/;
+    find( $sub, @dirs ) if @dirs;
+
 }
 
 sub substitute {