diff options
Diffstat (limited to '')
-rw-r--r-- | lib/githubexplorer/Gexf.pm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lib/githubexplorer/Gexf.pm b/lib/githubexplorer/Gexf.pm index 7d8538f..7e82f80 100644 --- a/lib/githubexplorer/Gexf.pm +++ b/lib/githubexplorer/Gexf.pm @@ -160,10 +160,13 @@ sub profiles_from_repositories { while ( my $repos = $repositories->next ) { my $forks = $self->schema->resultset('Fork') ->search( { repos => $repos->id } ); - my $lang = $self->schema->resultset('RepoLang')->search({repository => $repos->id}, {order_by => 'size'})->first; - warn "on a ".$repos->name. " qui est en ".$lang."\n"; - if ($lang && exists $self->avg_contrib_by_lang->{$lang}->{avg} && $forks <= $self->avg_contrib_by_lang->{$lang}->{avg}) { - warn ">>>> on skip pour ".$repos->name." qui est ecris en $lang"; + my $language; + my $lang_rs = $self->schema->resultset('RepoLang')->search({repository => $repos->id}, {order_by => 'size'})->first; + if ($lang_rs) { + $language = $lang_rs->language->name; + } + if ($language && exists $self->avg_contrib_by_lang->{$language}->{avg} && $forks <= $self->avg_contrib_by_lang->{$language}->{avg}){ + warn ">>>>> on skip pour ".$repos->name."\n"; next; } my @profiles; |