diff options
| -rw-r--r-- | lib/Travel/Status/DE/DBRIS/Formation.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Travel/Status/DE/DBRIS/Formation.pm b/lib/Travel/Status/DE/DBRIS/Formation.pm index 2027462..03903cd 100644 --- a/lib/Travel/Status/DE/DBRIS/Formation.pm +++ b/lib/Travel/Status/DE/DBRIS/Formation.pm @@ -112,7 +112,8 @@ sub parse_carriages { push( @numbers, $group_obj->train_no ); } - @groups = sort { $a->start_percent <=> $b->start_percent } @groups; + @groups = sort { ( $a->start_percent // 0 ) <=> ( $b->start_percent // 0 ) } + @groups; @numbers = uniq @numbers; $self->{train_numbers} = \@numbers; |