use any instead of grep (thanks perl_checker)

1 files changed, 1 insertions, 1 deletions

diff --git a/draklive b/draklive
index 52c8043..7d04ad0 100755
--- a/draklive
+++ b/draklive
@@ -498,7 +498,7 @@ sub remove_unneeded_bootlogo_locales {
     push @locales, 'en';
     my @kept_locales;
     foreach my $file (glob "*.tr") {
-        if (!grep { $file =~ /^$_\.tr$/ } @locales) {
+        if (!any { $file =~ /^$_\.tr$/ } @locales) {
             unlink $file;
         } else {
 	    my ($locale_name) = $file =~ /(.*)\.tr$/;