get forwards/backwards for poscomb links the right way round

diff --git a/layout/data2safety b/layout/data2safety
index bfb7330b3bb93512fa922e7f24bf8093b720f241..febe24320e233a676fb9048cdd4b0e695d65d48b 100755 (executable)
--- a/layout/data2safety
+++ b/layout/data2safety
@@ -499,13 +499,13 @@ sub writeout () {
            for ($end=0; $end<2; $end++) {
                o(", ") if $end;
                o("{");
-               $otherend= $segr->{Ends}[$comb][$end];
+               $otherend= $segr->{Ends}[$comb][!$end];
                defined $otherend or die "$seg $comb $end ?";
                ($node,$side) = @$otherend;
                $nodeotherside= $nodes{$node}[1-$side];
                if (defined $nodeotherside) {
                    $otherseg= $nodeotherside->{Seg};
-                   $otherbackrelus= $nodeotherside->{End} ^ $end ^ 1;
+                   $otherbackrelus= $nodeotherside->{End} ^ $end;
                    o(sprintf "/*%4s.%d*/ %d,%4s",
                      $node,$side,
                      $otherbackrelus,