diff --git a/lib/Lacuna/DB/Result/Map/Body/Planet.pm b/lib/Lacuna/DB/Result/Map/Body/Planet.pm index 487095a7..0cdd9506 100644 --- a/lib/Lacuna/DB/Result/Map/Body/Planet.pm +++ b/lib/Lacuna/DB/Result/Map/Body/Planet.pm @@ -1948,7 +1948,7 @@ sub spend_happiness { my ($self, $value) = @_; my $new = $self->happiness - $value; my $empire = $self->empire; - if ($new < 0) { + if ($empire and $new < 0) { if ($empire->is_isolationist) { $new = 0; }