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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Fri Dec 14 08:11:44 2007
New Revision: 9949

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

Log:
chmod 755 to etc/bpb-script-wrapper in install directory

Modified: bpsbuilder/BPB/lib/BPB/Build.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Build.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Build.pm	Fri Dec 14 08:11:44 2007
@@ -37,6 +37,10 @@
 
     dircopy( 'etc', File::Spec->catfile( $self->install_directory, 'etc' ) );
 
+    chmod 0755,
+      File::Spec->catfile( $self->install_directory, 'etc',
+        'bpb-script-wrapper' );
+
     my $order =
       BPB::Config::LoadFile( File::Spec->catfile( 'bpb', 'order.yml' ) );
 
@@ -107,7 +111,8 @@
         return if $seen{$File::Find::name}++;
         my $dir = ( File::Spec->splitdir($File::Find::dir) )[-1];
         mkdir File::Spec->catfile( $self->install_directory, "$dir-wrapped" )
-            unless -d File::Spec->catfile( $self->install_directory, "$dir-wrapped" );
+          unless -d File::Spec->catfile( $self->install_directory,
+            "$dir-wrapped" );
         move( $file =>
               File::Spec->catfile( $self->install_directory, "$dir-wrapped" ) )
           or die $!;