From dbe6280e239d58250c4a429f5f4e7f3bde576deb Mon Sep 17 00:00:00 2001
From: JT Smith <jt@lacunaexpanse.com>
Date: Wed, 9 Mar 2011 16:50:46 -0600
Subject: [PATCH] fix

---
 lib/Lacuna/DB/Result/Building.pm        | 2 +-
 lib/Lacuna/DB/Result/Building/Module.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Lacuna/DB/Result/Building.pm b/lib/Lacuna/DB/Result/Building.pm
index 9db5dc9d..471fe5f6 100644
--- a/lib/Lacuna/DB/Result/Building.pm
+++ b/lib/Lacuna/DB/Result/Building.pm
@@ -582,7 +582,7 @@ sub can_build {
 
 sub can_build_on {
     my $self = shift;
-    if (!$self->isa('Lacuna::DB::Result::Map::Body::Planet') || $self->isa('Lacuna::DB::Result::Map::Body::Planet::Station')) {
+    if (!$self->body->isa('Lacuna::DB::Result::Map::Body::Planet') || $self->body->isa('Lacuna::DB::Result::Map::Body::Planet::Station')) {
         confess [1009, 'Can only be built on habitable planets and gas giants.'];
     }
     return 1;
diff --git a/lib/Lacuna/DB/Result/Building/Module.pm b/lib/Lacuna/DB/Result/Building/Module.pm
index 5e965d2a..5d05508c 100644
--- a/lib/Lacuna/DB/Result/Building/Module.pm
+++ b/lib/Lacuna/DB/Result/Building/Module.pm
@@ -106,7 +106,7 @@ around can_repair => sub {
 
 sub can_build_on {
     my $self = shift;
-    if ($self->isa('Lacuna::DB::Result::Map::Body::Planet::Station')) {
+    if ($self->body->isa('Lacuna::DB::Result::Map::Body::Planet::Station')) {
         confess [1009, 'Can only be built on space stations.'];
     }
     return 1;
-- 
2.51.2