From b6ce11a19f00a06e363229c1c7c3955edc9df954 Mon Sep 17 00:00:00 2001
From: Sitaram Chamarty <sitaram@atc.tcs.com>
Date: Mon, 21 May 2012 22:00:38 +0530
Subject: [PATCH] (minor) permissions fixup -- sugar scripts do not need +x

---
 src/lib/Gitolite/Conf/Sugar.pm           | 4 ++--
 src/syntactic-sugar/continuation-lines   | 0
 src/syntactic-sugar/keysubdirs-as-groups | 0
 3 files changed, 2 insertions(+), 2 deletions(-)
 mode change 100755 => 100644 src/syntactic-sugar/continuation-lines
 mode change 100755 => 100644 src/syntactic-sugar/keysubdirs-as-groups

diff --git a/src/lib/Gitolite/Conf/Sugar.pm b/src/lib/Gitolite/Conf/Sugar.pm
index 1e9cd9f..06422b7 100644
--- a/src/lib/Gitolite/Conf/Sugar.pm
+++ b/src/lib/Gitolite/Conf/Sugar.pm
@@ -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 ];
             }
diff --git a/src/syntactic-sugar/continuation-lines b/src/syntactic-sugar/continuation-lines
old mode 100755
new mode 100644
diff --git a/src/syntactic-sugar/keysubdirs-as-groups b/src/syntactic-sugar/keysubdirs-as-groups
old mode 100755
new mode 100644