From 6ed4ca07b223d5d56d1b7475d9dce2a43b6eb502 Mon Sep 17 00:00:00 2001 From: "Will \"Coke\" Coleda" Date: Tue, 19 May 2015 12:00:22 -0400 Subject: Unify get request for proxy/non-proxy ecosystem host confused by the http/1.0 attempt there (used to work fine against feather) --- tools/build/panda-state.p6 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'tools') diff --git a/tools/build/panda-state.p6 b/tools/build/panda-state.p6 index 7381f89..63f0316 100644 --- a/tools/build/panda-state.p6 +++ b/tools/build/panda-state.p6 @@ -37,12 +37,11 @@ sub fetch-projects-json($to) { if %*ENV { my ($host, $port) = %*ENV.split('/').[2].split(':'); $s = IO::Socket::INET.new(host=>$host, port=>$port.Int); - $s.send("GET http://ecosystem-api.p6c.org/projects.json HTTP/1.1\nHost: ecosystem-api.p6c.org\nAccept: */*\nConnection: Close\n\n"); } else { $s = IO::Socket::INET.new(:host, :port(80)); - $s.send("GET /projects.json HTTP/1.0\n\n"); } + $s.send("GET http://ecosystem-api.p6c.org/projects.json HTTP/1.1\nHost: ecosystem-api.p6c.org\nAccept: */*\nConnection: Close\n\n"); my ($buf, $g) = ''; $buf ~= $g while $g = $s.get; -- cgit v1.1