git-cache-proxy: new "utility functions" section, nfc

diff --git a/scripts/git-cache-proxy b/scripts/git-cache-proxy
index 4b83ebac754dab7855435cfb60ef8f5ff407f187..520f1e5f28c8cbdf9a2cb0a4406f5d386f974a6e 100755 (executable)
--- a/scripts/git-cache-proxy
+++ b/scripts/git-cache-proxy
@@ -155,13 +155,7 @@ for (;;) {
 
 !@ARGV or fail "bad usage: no non-option arguments permitted";
 
 
 !@ARGV or fail "bad usage: no non-option arguments permitted";
 

-#---------- main program ----------
-
-chdir $cachedir or fail "chdir $cachedir: $!";
-
-our ($service,$specpath,$spechost,$subdir);
-our ($tmpd,$gitd,$lock);
-our ($fetch,$url);
+#---------- utility functions ----------

 
 sub xread {
     my $length = shift;
 
 sub xread {
     my $length = shift;


@@ -175,6 +169,14 @@ sub xread {
     return $buffer;
 }
 
     return $buffer;
 }
 

+#---------- main program ----------
+
+chdir $cachedir or fail "chdir $cachedir: $!";
+
+our ($service,$specpath,$spechost,$subdir);
+our ($tmpd,$gitd,$lock);
+our ($fetch,$url);
+

 sub servinfo ($) {
     my ($msg) = @_;
     logm 'info', "service `$specpath': $msg";
 sub servinfo ($) {
     my ($msg) = @_;
     logm 'info', "service `$specpath': $msg";