$NetBSD$

Don't use subroutine prototypes (Perl::Critic)

--- fgallery.orig	2014-09-05 16:33:54.000000000 +0200
+++ fgallery	2015-10-02 11:10:05.000000000 +0200
@@ -86,7 +86,7 @@
 }
 
 
-sub any(&@)
+sub any
 {
   my ($fun, @seq) = @_;
   return (List::Util::first { &$fun() } @seq)? 1: 0;
