From d7a5e063f25a05b4b8c2c6ce12294d488f5f24cd Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Wed, 22 Jul 2009 22:10:56 +0200
Subject: [PATCH] Fix, make the planet scan parsing stricter

---
 scripts/scans.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/scans.pl b/scripts/scans.pl
index 6bfdb8e..a7c25dd 100755
--- a/scripts/scans.pl
+++ b/scripts/scans.pl
@@ -92,7 +92,7 @@ sub parse_planet {
 	my @values = ($scan->{id},$scan->{tick},$scan->{planet});
 	$file =~ s/(\d),(\d)/$1$2/g;
 
-	while($file =~ m/"center">(Metal|Crystal|Eonium)\D+(\d+)\D+([\d,]+)/g){
+	while($file =~ m{"center">(Metal|Crystal|Eonium)</td>\D+(\d+)\D+([\d,]+)}g){
 		push @values,$2,$3;
 	}
 	if($file =~ m{Security\ Guards .+? "center">(\d+)</td>
-- 
2.39.2