From 517c5b8ce0e9582d0d59461438e368e31387ad4b Mon Sep 17 00:00:00 2001
From: Michael Pyne <mpyne@kde.org>
Date: Sun, 26 Jul 2015 18:07:11 -0400
Subject: [PATCH] Prefer our built-in any() function.

The List::Util any() requires a _very_ new List::Util, which is why
there is a kdesrc-build-specific one in the first place.
---
 modules/ksb/Updater/Git.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/modules/ksb/Updater/Git.pm b/modules/ksb/Updater/Git.pm
index d58c70d..f4e8df3 100644
--- a/modules/ksb/Updater/Git.pm
+++ b/modules/ksb/Updater/Git.pm
@@ -15,7 +15,7 @@ our @ISA = qw(ksb::Updater);
 use File::Basename; # basename
 use File::Spec;     # tmpdir
 use POSIX qw(strftime);
-use List::Util qw(first any);
+use List::Util qw(first);
 
 use ksb::IPC::Null;
 
@@ -137,7 +137,7 @@ sub _isDirectoryEmpty
     # whatever context the function is called in.
 
     opendir (my $dh, $dir) or return;
-    if (any { $_ ne '.' && $_ ne '..' } readdir($dh)) {
+    if (any { $_ ne '.' && $_ ne '..' } [readdir($dh)]) {
         close $dh;
         return;
     }