X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=cgi-auth-flexible.git;a=blobdiff_plain;f=cgi-auth-flexible.pm;h=4b4823a7362df6dd3bc4733e7796eb1fb4c15aca;hp=01d7df3555fe939f23293c5fcfcaebe2d6ec0f90;hb=0cc7c93091dc8700032bf5eef81120d46633d65f;hpb=97c2fa3d6cdfd43da1a3637a5c317dcd45e714f7

diff --git a/cgi-auth-flexible.pm b/cgi-auth-flexible.pm
index 01d7df3..4b4823a 100644
--- a/cgi-auth-flexible.pm
+++ b/cgi-auth-flexible.pm
@@ -282,8 +282,9 @@ sub srcdump_novcs ($$$$$) {
 sub srcdump_byvcs ($$$$$$) {
     my ($c, $v, $dumpdir, $dir, $outfn, $vcs) = @_;
 #print STDERR "BYVCS GIT $dir\n";
-    return srcdump_dir_cpio($c,$v,$dumpdir,$dir,$outfn,$vcs,
-			    $v->{S}{"srcdump_vcsscript_$vcs"});
+    my $script = $v->{S}{"srcdump_vcsscript"}{$vcs};
+    die "no script for vcs $vcs" unless defined $script;
+    return srcdump_dir_cpio($c,$v,$dumpdir,$dir,$outfn,$vcs,$script);
 }
 
 sub srcdump_file ($$$$) {
@@ -478,14 +479,11 @@ sub new_verifier {
 	    },
 	    srcdump_process_item => \&srcdump_process_item,
 	    srcdump_vcs_dirs => [qw(.git .hg .bzr .svn)],
-	    srcdump_vcsscript_git => "
+	    srcdump_vcsscript => [git => "
                  git ls-files -z
                  git ls-files -z --others --exclude-from=.gitignore
                  find .git -print0
-                            ",
-	    srcdump_vcsscript_hg => "false hg",
-	    srcdump_vcsscript_bzr => "false bzr",
-	    srcdump_vcsscript_svn => "false svn",
+                            "],
 	    srcdump_byvcs => \&srcdump_byvcs,
 	    srcdump_novcs => \&srcdump_novcs,
 	    srcdump_excludes => [qw(*~ *.bak *.tmp), '#*#'],