diff options
Diffstat (limited to 'tools/build/panda-state.p6')
| -rw-r--r-- | tools/build/panda-state.p6 | 3 |
1 files changed, 1 insertions, 2 deletions
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<http_proxy> { my ($host, $port) = %*ENV<http_proxy>.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<ecosystem-api.p6c.org>, :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; |