diff options
Diffstat (limited to 'lib')
| -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 1cf1e5c..b46b4f1 100644 --- a/lib/Travel/Status/DE/DBRIS/Formation.pm +++ b/lib/Travel/Status/DE/DBRIS/Formation.pm @@ -102,7 +102,8 @@ sub parse_carriages { push( @{ $self->{carriages} }, $carriage_object ); } @group_carriages - = sort { $a->start_percent <=> $b->start_percent } @group_carriages; + = sort { ( $a->start_percent // 0 ) <=> ( $b->start_percent // 0 ) } + @group_carriages; my $group_obj = Travel::Status::DE::DBRIS::Formation::Group->new( json => $group, carriages => \@group_carriages, |