From 6d0034cd53cf2aa7d0232a77a81816cd15a85871 Mon Sep 17 00:00:00 2001
From: Darin McBride <dmcbride@cpan.org>
Date: Fri, 29 Jan 2016 21:05:24 -0700
Subject: [PATCH] Remove ~~ (prep for upgrading perl)

---
 lib/Lacuna/RPC/Building/MissionCommand.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Lacuna/RPC/Building/MissionCommand.pm b/lib/Lacuna/RPC/Building/MissionCommand.pm
index 2291be31..d71de964 100644
--- a/lib/Lacuna/RPC/Building/MissionCommand.pm
+++ b/lib/Lacuna/RPC/Building/MissionCommand.pm
@@ -4,6 +4,7 @@ use Moose;
 use utf8;
 no warnings qw(uninitialized);
 extends 'Lacuna::RPC::Building';
+use List::Util qw(any);
 
 sub app_url {
     return '/missioncommand';
@@ -24,7 +25,7 @@ sub get_missions {
     my @listed;
     while (my $mission = $missions->next) {
         my $params = $mission->params;
-        next if $mission->mission_file_name ~~ \@listed;
+        next if any { $mission->mission_file_name eq $_ } @listed;
         next if $params->get('max_university_level') < $empire->university_level;
         next if Lacuna->cache->get($mission->mission_file_name, $empire->id);
         push @listed, $mission->mission_file_name;
-- 
2.51.2