a slice in scalar context doesn't work - grep instead

Raku · Dec 17, 2010 · 98252bb · 98252bb
1 parent 466bbd8
commit 98252bb
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/web/build-project-list.pl b/web/build-project-list.pl
@@ -62,8 +62,15 @@
 
 		$project ->{badge_has_tests} = $files{t} || $files{test} || $files{tests} ;
 
-        my @readmes = @files{ qw/README README.pod README.md README.mkdn README.markdown/ };
-		$project ->{badge_has_readme} = scalar(@readmes) ? "http://github.com/$project->{auth}/$project->{name}/blob/master/README" : undef;
+        my $has_readme = grep exists $files{$_}, qw/
+                                                    README
+                                                    README.pod
+                                                    README.md
+                                                    README.mkdn
+                                                    README.markdown
+                                                 /;
+
+		$project ->{badge_has_readme} = $has_readme ? "http://github.com/$project->{auth}/$project->{name}/blob/master/README" : undef;
 		$project ->{badge_is_popular} = $repository->{repository}->{watchers} && $repository->{repository}->{watchers} > 50;
 		sleep(3) ; #We are allowed 60 calls/min = 1 api call per second, and we are wasting 3 per request so we sleep for 3 secs to make up
 		return;