fix segment orientation for parts

diff --git a/layout/layout b/layout/layout
index ba06d0a5ce9d7f1e1ddf6745e74de8edc189d5c9..342aaaa9f4dde80ca4445b01e130506abf560397 100755 (executable)
--- a/layout/layout
+++ b/layout/layout
@@ -1226,7 +1226,9 @@ sub cmd__obj ($) {
     } else {
        $ctx->{InRunObj}= $ctx_save->{InRunObj}."${obj_id}::";
     }
-    $ctx->{SegName}= $1 if $segments[0] =~ m,([^-]+)/,;
+    if ($segments[0] =~ m,(.*[^-]+)/,) {
+       $ctx->{SegName}= $1;
+    }
     $ctx->{DrawMap}= sub {
        my ($i) = @_;
        $i= &{ $ctx_save->{DrawMap} }($i);