Fix, make the planet scan parsing stricter

diff --git a/scripts/scans.pl b/scripts/scans.pl
index 6bfdb8e8d6e1e0da4abcae09c1a34184e3cc82a3..a7c25dd8896768de8bd755f7e85b58757f36a2f2 100755 (executable)
--- 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>