From b6cc1be4dfeb9ea405a412f95d577915edc8f3f8 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@lacunaexpanse.com>
Date: Sun, 19 Dec 2010 17:32:47 -0600
Subject: [PATCH] fix surveyor report

---
 lib/Lacuna/Role/Ship/Arrive/SurveySurface.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lib/Lacuna/Role/Ship/Arrive/SurveySurface.pm b/lib/Lacuna/Role/Ship/Arrive/SurveySurface.pm
index 7c2eaffb..13266d02 100644
--- a/lib/Lacuna/Role/Ship/Arrive/SurveySurface.pm
+++ b/lib/Lacuna/Role/Ship/Arrive/SurveySurface.pm
@@ -12,7 +12,7 @@ after handle_arrival_procedures => sub {
     # do the scan
     my $body_attacked = $self->foreign_body;
     my @map;
-    my @table = ([q(Name Level X Y)]);
+    my @table = ([qw(Name Level X Y)]);
     my $buildings = $body_attacked->buildings;
     while (my $building = $buildings->next) {
         push @map, {
@@ -21,10 +21,10 @@ after handle_arrival_procedures => sub {
             y       => $building->y,
         };
         push @table, [
-            name    => $building->name,
-            level   => $building->level,
-            x       => $building->x,
-            y       => $building->y,
+            $building->name,
+            $building->level,
+            $building->x,
+            $building->y,
         ];
     }
     
-- 
2.51.2