diff options
Diffstat (limited to 'bin/umlauf-to-dot')
| -rwxr-xr-x | bin/umlauf-to-dot | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/bin/umlauf-to-dot b/bin/umlauf-to-dot index 47a766c..081380a 100755 --- a/bin/umlauf-to-dot +++ b/bin/umlauf-to-dot @@ -125,9 +125,11 @@ push( @cycle_ids, keys %{ $map->{$line}{cycle} // {} } ); say "digraph Umlauf {"; +my @all_lines; for my $cycle_id (@cycle_ids) { - say join( "\n", uniq build_cycle( $line, $cycle_id ) ); + push( @all_lines, build_cycle( $line, $cycle_id ) ); } +say join( "\n", uniq @all_lines ); printf( "%s [style=bold];\n", format_train( $line, $map->{$line} ) ); |