chiark / gitweb /
git-cache-proxy: new "utility functions" section, nfc
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 10 Nov 2013 00:39:03 +0000 (00:39 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sun, 10 Nov 2013 00:39:03 +0000 (00:39 +0000)
scripts/git-cache-proxy

index 4b83eba..520f1e5 100755 (executable)
@@ -155,13 +155,7 @@ for (;;) {
 
 !@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;
@@ -175,6 +169,14 @@ sub xread {
     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";