summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--index.pl8
1 files changed, 4 insertions, 4 deletions
diff --git a/index.pl b/index.pl
index 81217b0..c574328 100644
--- a/index.pl
+++ b/index.pl
@@ -92,7 +92,7 @@ sub get_results {
my $status;
if ( $backend eq 'hafas' ) {
$status = Travel::Status::DE::HAFAS->new(
- station => ( $city ? "${city} ${stop}" : $stop ),
+ station => ( $city ? "${city} ${stop}" : $stop ),
excluded_mots => [qw[ice ic_ec d regio]],
service => $sub_backend,
);
@@ -184,10 +184,10 @@ sub handle_request {
sub shorten_line {
my ($line) = @_;
- $line =~ s{ \s* S-Bahn }{}ox;
+ $line =~ s{ \s* S-Bahn }{}ix;
- $line =~ s{ ^ ( U | S | SB ) \K \s+ }{}ox;
- $line =~ s{ ^ ( STR | Bus | RNV ) }{}ox;
+ $line =~ s{ ^ ( U | S | SB ) \K \s+ }{}ix;
+ $line =~ s{ ^ ( STR | Bus | RNV | Tram ) }{}ix;
$line =~ s{ ^ \s+ }{}ox;