summaryrefslogtreecommitdiff
path: root/lib/Travel/Status/DE/IRIS
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Travel/Status/DE/IRIS')
-rw-r--r--lib/Travel/Status/DE/IRIS/Result.pm3
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;
}