Don't bother writing projects file if not 200 response

tadzik · Jun 14, 2015 · 7d88f35 · 7d88f35
1 parent e3628e0
commit 7d88f35
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/lib/Panda/Ecosystem.pm b/lib/Panda/Ecosystem.pm
@@ -81,6 +81,13 @@ class Panda::Ecosystem {
           $s.send("GET /projects.json HTTP/1.0\r\nHost: ecosystem-api.p6c.org\r\n\r\n");
         }
         my ($buf, $g) = '';
+
+        my $http-header = $s.get;
+
+        if $http-header !~~ /'HTTP/1.1 200 OK'/ {
+            die "can't download projects file $http-header";
+        }
+
         $buf ~= $g while $g = $s.get;
 
         if  %*ENV<http_proxy> {