diff options
| -rw-r--r-- | lib/Travel/Status/DE/IRIS/Result.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm index 951e390..49d544d 100644 --- a/lib/Travel/Status/DE/IRIS/Result.pm +++ b/lib/Travel/Status/DE/IRIS/Result.pm @@ -35,6 +35,8 @@ sub new { my ( $train_id, $start_ts, $stop_no ) = split( /.\K-/, $opt{raw_id} ); + $train_id =~ s{^-}{}; + $ref->{start} = $strp->parse_datetime($start_ts); $ref->{train_id} = $train_id; @@ -42,6 +44,7 @@ sub new { if ( $opt{transfer} ) { my ($transfer) = split( /.\K-/, $opt{transfer} ); + $transfer =~ s{^-}{}; $ref->{transfer} = $transfer; } |