(minor) permissions fixup -- sugar scripts do not need +x

This commit is contained in:
Sitaram Chamarty 2012-05-21 22:00:38 +05:30
parent b12a967272
commit b6ce11a19f
3 changed files with 2 additions and 2 deletions

View file

@ -4,7 +4,7 @@ package SugarBox;
sub run_sugar_script {
my ( $ss, $lref ) = @_;
do $ss if -x $ss;
do $ss if -r $ss;
$lref = sugar_script($lref);
return $lref;
}
@ -54,7 +54,7 @@ sub sugar {
# aliasing, which would happen if you touched $s itself
my $sfp = "$ENV{GL_BINDIR}/syntactic-sugar/$s";
_warn("skipped sugar script '$s'"), next if not -x $sfp;
_warn("skipped sugar script '$s'"), next if not -r $sfp;
$lines = SugarBox::run_sugar_script( $sfp, $lines );
$lines = [ grep /\S/, map { cleanup_conf_line($_) } @$lines ];
}

0
src/syntactic-sugar/continuation-lines Executable file → Normal file
View file

0
src/syntactic-sugar/keysubdirs-as-groups Executable file → Normal file
View file