diff --git a/api/perl/ttrts.pm b/api/perl/ttrts.pm
index 6dc279e..793269b 100644
--- a/api/perl/ttrts.pm
+++ b/api/perl/ttrts.pm
@@ -238,6 +238,13 @@ sub PrintGameFromGamestateString
 		$map[$invalidPos[0]][$invalidPos[1]] = "~";
 	}
 
+	# Fill with walls
+	foreach my $wall ( $info[8] =~ /\[(\d+,\d+)\]/g )
+	{
+		$wall =~ /(\d+),(\d+)/;
+		$map[$1][$2] = "|"; 
+	}
+
 	# Fill with units
 	for my $unit (@units)
 	{
diff --git a/source/client/net.cpp b/source/client/net.cpp
index 9ee7b45..b1aed5d 100644
--- a/source/client/net.cpp
+++ b/source/client/net.cpp
@@ -233,7 +233,7 @@ std::string WaitForGamestateMessage(int sockfd)
 int SendOrdersToServer(int sockfd, const std::string &orders)
 {
     int n = write(sockfd,orders.c_str(),orders.length());
-    if (0 < n)
+    if (n < 0)
         fatal_perror("ERROR writing to socket");
     return n;
 }