commands.xml: older List::Util doesn't have none(), so use grep

1 files changed, 1 insertions, 2 deletions

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();