$featr= $segr->{Feats}{$feat};
if (exists $featr->{Fixed}) {
if ($pos != $featr->{Fixed}) {
- ditch("fixed-elsewise $seg/$subspec");
+ ditch("fixed-elsewise $desc");
return;
}
} else {
for $feat (keys %{ $segr->{Feats} }) {
$featr= $segr->{Feats}{$feat};
next if exists $featr->{Fixed};
- mistake("wiring $seg/$feat not covered by $seg/$subspec"),next
+ mistake("wiring $seg/$feat not covered by $desc"),next
if !exists $featposwant{$feat};
$combpos += $featposwant{$feat} * $featr->{Weight};
}
- mistake("duplicate topology subseg for $seg/$subspec")
+ mistake("duplicate topology subseg for $desc")
if defined $segs{$seg}{Dist}[$combpos];
$segs{$seg}{Dist}[$combpos]= $dist;
$endposr= $segr->{Ends}[$combpos];