[Bps-public-commit] r16809 - Shipwright/branches/1.10/lib/Shipwright/Backend

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Nov 11 01:44:56 2008
New Revision: 16809

Modified:
   Shipwright/branches/1.10/lib/Shipwright/Backend/Base.pm

Log:
merged 16808 to 1.1

Modified: Shipwright/branches/1.10/lib/Shipwright/Backend/Base.pm
==============================================================================
--- Shipwright/branches/1.10/lib/Shipwright/Backend/Base.pm	(original)
+++ Shipwright/branches/1.10/lib/Shipwright/Backend/Base.pm	Tue Nov 11 01:44:56 2008
@@ -68,6 +68,15 @@
     copy( Module::Info->new_from_module('YAML::Tiny')->file, $yaml_tiny_path )
       or confess "copy YAML/Tiny.pm failed: $!";
 
+    # set proper permissions for yml under /shipwright/
+    my $sw_dir = catdir( $dir, 'shipwright' );
+    my $sw_dh;
+    opendir $sw_dh, $sw_dir or die "can't opendir $sw_dir: $!";
+    for my $yml ( grep { /.yml$/ } readdir $sw_dh ) {
+        chmod 0644, catfile( $dir, 'shipwright', $yml ); ## no critic
+    }
+    closedir $sw_dh;
+
     # share_root can't keep empty dirs, we have to create them manually
     for (qw/dists scripts t/) {
         mkdir catdir( $dir, $_ );