From eda343442f5440c4a4b23fd2cdf9bd8cb6953761 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 10 Nov 2013 00:39:03 +0000
Subject: [PATCH] git-cache-proxy: new "utility functions" section, nfc

---
 scripts/git-cache-proxy | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/scripts/git-cache-proxy b/scripts/git-cache-proxy
index 4b83eba..520f1e5 100755
--- 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";
 
-#---------- 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";
-- 
2.30.2