From 03f791601c980d940c9b16c81da9b3e9841118d2 Mon Sep 17 00:00:00 2001
From: lemming552 <move@quirkyqatz.com>
Date: Sun, 21 Oct 2012 18:08:35 -0600
Subject: [PATCH] more bug fixs

---
 lib/Lacuna/DB/Result/Spies.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Lacuna/DB/Result/Spies.pm b/lib/Lacuna/DB/Result/Spies.pm
index 4a3aa3eb..3555bef2 100644
--- a/lib/Lacuna/DB/Result/Spies.pm
+++ b/lib/Lacuna/DB/Result/Spies.pm
@@ -1260,7 +1260,7 @@ sub abduct_operatives_loss {
 
 sub sabotage_resources {
     my $self = shift;
-    given (randint(1,7)) {
+    given (randint(1,9)) {
         when (1) { return $self->destroy_mining_ship(@_) }
         when (2) { return $self->destroy_ship(@_) }
         when (3) { return $self->kill_contact_with_mining_platform(@_) }
@@ -2041,7 +2041,7 @@ sub destroy_chain_ship {
     my ($self, $defender) = @_;
     my $ship = Lacuna->db->resultset('Lacuna::DB::Result::Ships')->search(
         {body_id => $self->on_body->id,
-         task => {'in' => ['Supply Chain', 'Waste Chain'] },
+         task => {'in' => ['Supply Chain', 'Waste Chain'] }},
         { rows => 1, order_by => 'rand()' }
         )->single;
     return $self->ship_not_found->id unless $ship;
-- 
2.51.2