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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Jan 15 04:50:28 2008
New Revision: 10349

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

Log:
tiny improvements

Modified: bpsbuilder/BPB/lib/BPB/Backend.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Backend.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Backend.pm	Tue Jan 15 04:50:28 2008
@@ -153,6 +153,8 @@
 
         for (@cmds) {
             my ( $type, $cmd );
+            next unless /\S/;
+
             if (/^(\S+):\s*(.*)/) {
                 $type = $1;
                 $cmd  = $2;
@@ -203,6 +205,7 @@
         link File::Spec->catfile( $args{'install-base'}, 'etc',
             'bpb-script-wrapper' ) => $file
           or die $!;
+        chmod 0755, $file;
     };
 
     my @dirs =

Modified: bpsbuilder/BPB/lib/BPB/Build.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Build.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Build.pm	Tue Jan 15 04:50:28 2008
@@ -105,6 +105,8 @@
 
     for (@cmds) {
         my ( $type, $cmd );
+        next unless /\S/;
+
         if (/^(\S+):\s*(.*)/) {
             $type = $1;
             $cmd  = $2;