From 4754175d195f45a4169be5dfd9045c2eccfd6c54 Mon Sep 17 00:00:00 2001
From: Janik Kleinhoff <janik@kleinhoff.de>
Date: Tue, 10 Mar 2015 15:40:08 +0400
Subject: commands.xml: older List::Util doesn't have none(), so use grep

---
 config-default/commands.xml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'config-default')

diff --git a/config-default/commands.xml b/config-default/commands.xml
index 8fb62c9..b1b1ec9 100644
--- a/config-default/commands.xml
+++ b/config-default/commands.xml
@@ -475,14 +475,13 @@
   <command cmd="^;join (\S+)" flag="a">
   <![CDATA[
     my $chan = lc $1;
-    use List::Util qw(none);
     unless (defined($::channels->{channel}->{$chan})) {
       $::channels->{channel}->{$chan} = { };
       ASM::XML->writeChannels();
     }
     $conn->join($chan);
     my @autojoins = @{$::settings->{autojoins}};
-    if (none { $chan eq lc $_ } @autojoins) {
+    if (!grep { $chan eq lc $_ } @autojoins) {
       @autojoins = (@autojoins, $chan);
       $::settings->{autojoins} = \@autojoins;
       ASM::XML->writeSettings();
-- 
cgit v1.2.3