Work around curl -sS -I printing `HTTP/1.0 200 Connection established' before the actual header, so dgit works with https_proxy set (!)

1 files changed, 3 insertions, 0 deletions

diff --git a/dgit b/dgit
index 867ba3c..660c0c3 100755
--- a/dgit
+++ b/dgit
@@ -1157,6 +1157,9 @@ sub check_for_git () {
 	my $url = "$prefix/$package$suffix";
 	my @cmd = (qw(curl -sS -I), $url);
 	my $result = cmdoutput @cmd;
+	$result =~ s/^\S+ 200 .*\n\r?\n//;
+	# curl -sS -I with https_proxy prints
+	# HTTP/1.0 200 Connection established
 	$result =~ m/^\S+ (404|200) /s or
 	    fail "unexpected results from git check query - ".
 	        Dumper($prefix, $result);