From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Fri, 24 Dec 2010 00:37:05 +0000 (+0000)
Subject: layout/data2safety: ditch rather than mistake on point relating to unwired segment... 
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=5a8ee8f669ee8b9e6282c80f9ef5232be90234e5;p=trains.git

layout/data2safety: ditch rather than mistake on point relating to unwired segment - but still count the point as present
---

diff --git a/layout/data2safety b/layout/data2safety
index d32e749..c3fedb3 100755
--- a/layout/data2safety
+++ b/layout/data2safety
@@ -110,8 +110,13 @@ sub ditch ($) {
 
 sub seg_wiring ($$$) {
     my ($seg,$feat,$hash) = @_;
-    return mistake("unknown wiring for $seg in $seg/$feat")
-	unless exists $segs{$seg};
+    if (!exists $segs{$seg}) {
+	foreach my $bo (@{ $hash->{BoObs} }) {
+	    so_boob(1,$bo);
+	}
+	ditch("unwired segment for wired point $seg/$feat");
+	return;
+    }
     mistake("duplicate wiring for $seg/$feat")
 	if exists $segs{$seg}{Feats}{$feat};
     if (exists $hash->{Posns}) {