diff options
author | Moritz Lenz <moritz@faui2k3.org> | 2015-09-19 10:18:18 +0000 |
---|---|---|
committer | Moritz Lenz <moritz@faui2k3.org> | 2015-09-19 10:18:18 +0000 |
commit | 06f75c42eb15c9248b5ca937f77f3e1e43b059c8 (patch) | |
tree | fcfd748bf2e85b29e9f4c7ea3c719b9aeb5a9f24 /tools | |
parent | 030460039417bce304876cbe7d33c3982b830733 (diff) |
Socket.send is now .print
Diffstat (limited to 'tools')
-rw-r--r-- | tools/build/panda-state.p6 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/build/panda-state.p6 b/tools/build/panda-state.p6 index e5f809b..6ee4a12 100644 --- a/tools/build/panda-state.p6 +++ b/tools/build/panda-state.p6 @@ -41,7 +41,7 @@ sub fetch-projects-json($to) { else { $s = IO::Socket::INET.new(:host<ecosystem-api.p6c.org>, :port(80)); } - $s.send("GET http://ecosystem-api.p6c.org/projects.json HTTP/1.1\nHost: ecosystem-api.p6c.org\nAccept: */*\nConnection: Close\n\n"); + $s.print("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; |