layout/data2safety: ditch rather than mistake on point relating to unwired segment...

diff --git a/layout/data2safety b/layout/data2safety
index d32e749f6f60048605b89b9ddba7adebc442e274..c3fedb33a2c76328904d0fb4ecaa5d5224436cb6 100755 (executable)
--- 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}) {