(minor) permissions fixup -- sugar scripts do not need +x
This commit is contained in:
parent
b12a967272
commit
b6ce11a19f
|
@ -4,7 +4,7 @@ package SugarBox;
|
||||||
|
|
||||||
sub run_sugar_script {
|
sub run_sugar_script {
|
||||||
my ( $ss, $lref ) = @_;
|
my ( $ss, $lref ) = @_;
|
||||||
do $ss if -x $ss;
|
do $ss if -r $ss;
|
||||||
$lref = sugar_script($lref);
|
$lref = sugar_script($lref);
|
||||||
return $lref;
|
return $lref;
|
||||||
}
|
}
|
||||||
|
@ -54,7 +54,7 @@ sub sugar {
|
||||||
# aliasing, which would happen if you touched $s itself
|
# aliasing, which would happen if you touched $s itself
|
||||||
my $sfp = "$ENV{GL_BINDIR}/syntactic-sugar/$s";
|
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 = SugarBox::run_sugar_script( $sfp, $lines );
|
||||||
$lines = [ grep /\S/, map { cleanup_conf_line($_) } @$lines ];
|
$lines = [ grep /\S/, map { cleanup_conf_line($_) } @$lines ];
|
||||||
}
|
}
|
||||||
|
|
0
src/syntactic-sugar/continuation-lines
Executable file → Normal file
0
src/syntactic-sugar/continuation-lines
Executable file → Normal file
0
src/syntactic-sugar/keysubdirs-as-groups
Executable file → Normal file
0
src/syntactic-sugar/keysubdirs-as-groups
Executable file → Normal file
Loading…
Reference in a new issue