Perl interface: make testsuite work again.

diff --git a/update-server-info.c b/update-server-info.c
index e824f62eaff8121095191f4710354aefb63eba56..0b6c3835bd19241ff447c37f442de75791186020 100644 (file)
--- a/update-server-info.c
+++ b/update-server-info.c
@@ -19,5 +19,7 @@ int main(int ac, char **av)
        if (i != ac)
                usage(update_server_info_usage);
 
+       setup_git_directory();
+
        return !!update_server_info(force);
 }