4 files changed, 7 insertions, 6 deletions
diff --git a/bin/hush/i3-switch-workspace b/bin/hush/i3-switch-workspace
index 8e77cf2..bcbb8d2 100755
--- a/bin/hush/i3-switch-workspace
+++ b/bin/hush/i3-switch-workspace
@@ -1,11 +1,12 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
+use 5.014;
 
 use IO::Socket::UNIX;
-use JSON;
+use JSON::PP;
 
-my $json = JSON->new;
+my $json = JSON::PP->new;
 
 my %message_types = (
     command        => 0,
diff --git a/bin/hush/kill_focused b/bin/hush/kill_focused
index 06010d4..37271ac 100755
--- a/bin/hush/kill_focused
+++ b/bin/hush/kill_focused
@@ -1,8 +1,9 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
+use 5.014;
 
-use JSON;
+use JSON::PP;
 
 my ($sig) = @ARGV;
 my $pid = get_pid();
diff --git a/bin/hush/status b/bin/hush/status
index 062455d..420f374 100755
--- a/bin/hush/status
+++ b/bin/hush/status
@@ -5,7 +5,7 @@ use 5.010;
 
 use IO::Select;
 use IO::Socket::UNIX;
-use JSON;
+use JSON::PP;
 
 my $i3status = get_i3status_handle();
 my $ipc = get_ipc_handle();
diff --git a/bin/update_addressbook b/bin/update_addressbook
index 5fc0db4..ef73966 100755
--- a/bin/update_addressbook
+++ b/bin/update_addressbook
@@ -4,7 +4,6 @@ use warnings;
 use 5.014;
 
 use Email::Address;
-use List::MoreUtils 'any';
 use Path::Class;
 use Text::CSV;
 
@@ -56,7 +55,7 @@ sub maildir_senders {
 
     return grep {
         my $address = $_->format;
-        !any { $address =~ $_ } @exclude_patterns
+        !grep { $address =~ $_ } @exclude_patterns
     } values %senders;
 }