$NetBSD$

Pass a code ref to subroutine "any" as expected

--- fgallery.orig	2014-09-05 16:33:54.000000000 +0200
+++ fgallery	2015-10-02 11:10:05.000000000 +0200
@@ -349,7 +354,7 @@
     my (undef, undef, $suffix) = fileparse($file, qr/\.[^.]*$/);
     return if(length($suffix) < 2);
     $suffix = lc(substr($suffix, 1));
-    if(any { $_ eq $suffix } @exts) {
+    if(any(sub {$_ eq $suffix},@exts)) {
       push(@files, $file);
     }
   }
