fix page update for IO::Select

The problem was that IO::Select did not have a description line on github, and
the update script used that instead of the description from the META.info file.

This commit now changes the update script to use the description from META.info,
and only falls back to the github repo if META.info has no "description"
field.

web/build-project-list.pl

@@ -67,7 +67,7 @@ sub getstore {
 		print "Updated since last check\n";
 
 		my $repository = json_get ("https://github.com/api/v2/json/repos/show/$project->{auth}/$project->{repo_name}");
-		$project ->{description}= $repository->{repository}->{description};
+		$project->{description} //= $repository->{repository}->{description};
 
 		my $tree = json_get("https://github.com/api/v2/json/tree/show/$project->{auth}/$project->{repo_name}/$latest->{id}");
 		my %files =  map { $_->{name} , $_->{type} } @{ $tree->{tree} };
@@ -157,6 +157,7 @@ sub get_projects {
             $projects->{$name}->{'repo_name'} = $repo_name;
             $projects->{$name}->{'url'}  = $url;
             $projects->{$name}->{'badge_panda'} = defined $json->{'source-url'};
+            $projects->{$name}->{'description'} = $json->{'description'};
         };
         warn $@ if $@;
     }