new 'skip_block' sugar, and 'testconf' feature using it

1 files changed, 17 insertions, 0 deletions

diff --git a/src/lib/Gitolite/Conf/Sugar.pm b/src/lib/Gitolite/Conf/Sugar.pm
index 986494b..68ad728 100644
--- a/src/lib/Gitolite/Conf/Sugar.pm
+++ b/src/lib/Gitolite/Conf/Sugar.pm
@@ -68,6 +68,7 @@ sub sugar {
     $lines = owner_desc($lines);
     $lines = name_vref($lines);
     $lines = role_names($lines);
+    $lines = skip_block($lines);
 
     return $lines;
 }
@@ -179,5 +180,21 @@ sub role_names {
     return \@ret;
 }
 
+sub skip_block {
+    my $lines = shift;
+
+    my @out  = ();
+    for (@$lines) {
+        my $skip = 0;
+        $skip = 1 if /^= *begin testconf$/;
+        # add code for other types of blocks here as needed
+
+        next if $skip .. /^= *end$/;
+        push @out, $_;
+    }
+
+    return \@out;
+}
+
 1;