From: ian <ian>
Date: Tue, 15 Apr 2008 01:14:50 +0000 (+0000)
Subject: get detection right dammit
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=c832c1d1237aba844ac9b53e2e0578330099fd15;p=trains.git

get detection right dammit
---

diff --git a/layout/data2safety b/layout/data2safety
index 2561498..95c1eb9 100755
--- a/layout/data2safety
+++ b/layout/data2safety
@@ -60,7 +60,7 @@ sub sensepermute_bitmap ($$$) {
     my ($objnum,$bitnum);
     my (@map)= split /\s+/, $mapstring;
     @map==8 or die;
-    $bitnum= 0;
+    $bitnum= $base;
     while (@map) {
 	$objnum= pop @map;
 	next if $objnum =~ m/[a-z]/i;
@@ -69,6 +69,7 @@ sub sensepermute_bitmap ($$$) {
 	die "$kind $objnum ($bitnum from $base)" if
 	    defined $sensepermute{$kind}[$objnum];
 	$sensepermute{$kind}[$objnum]= $bitnum;
+#print STDERR "SPM $kind $objnum $bitnum\n";
 	$bitnum++;
     }
 }