From 1cef6de2844dbba45a34609e772284b9a87b86fe Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Fri, 12 Feb 2010 11:37:06 +0100
Subject: wip

---
 lib/githubexplorer/Network.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'lib/githubexplorer/Network.pm')

diff --git a/lib/githubexplorer/Network.pm b/lib/githubexplorer/Network.pm
index eb6253f..dde08a4 100644
--- a/lib/githubexplorer/Network.pm
+++ b/lib/githubexplorer/Network.pm
@@ -7,6 +7,11 @@ use YAML::Syck;
 sub fetch_network {
     my ( $self, $repos ) = @_;
 
+    # check fork
+    my $check = $self->schema->resultset('Fork')->search({repos=>
+            $repos->id});
+    return if $check->count > 0;
+
     say ">> start on ".$repos->name;
     my $api_repos = Net::GitHub::V2::Repositories->new(
         owner => $repos->id_profile->login,
@@ -16,6 +21,10 @@ sub fetch_network {
     );
 
     my $edges = $api_repos->network();
+    if (ref $edges ne 'ARRAY') {
+        sleep 60;
+        return;
+    }
     sleep(1);
     foreach my $edge (@$edges) {
         next if $edge->{owner} eq $repos->id_profile->login;
-- 
cgit 1.4.1