From 66416bd3a9503fef538104ef2333b9c98fbf8953 Mon Sep 17 00:00:00 2001
From: lemming552 <move@quirkyqatz.com>
Date: Sun, 21 Oct 2012 18:13:58 -0600
Subject: [PATCH] subs need args.

---
 lib/Lacuna/DB/Result/Spies.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/Lacuna/DB/Result/Spies.pm b/lib/Lacuna/DB/Result/Spies.pm
index 3555bef2..bd631378 100644
--- a/lib/Lacuna/DB/Result/Spies.pm
+++ b/lib/Lacuna/DB/Result/Spies.pm
@@ -2494,6 +2494,7 @@ sub take_control_of_probe {
 }
 
 sub destroy_excavator {
+    my ($self, $defender) = @_;
     my $arch = $self->on_body->archaeology;
     return $self->building_not_found->id unless defined $arch;
     my $excavator = Lacuna->db
-- 
2.51.2