diff options
| -rw-r--r-- | cgi/index.pl | 5 | ||||
| -rw-r--r-- | lib/App/VRR/Fakedisplay.pm.PL | 4 |
2 files changed, 4 insertions, 5 deletions
diff --git a/cgi/index.pl b/cgi/index.pl index f107e5d..cd5885e 100644 --- a/cgi/index.pl +++ b/cgi/index.pl @@ -22,7 +22,7 @@ sub get_results { my $expiry = 900; - if (lc($city) eq 'berlin' or lc($stop) ~~ [qw[hbf hauptbahnhof]]) { + if ( lc($city) eq 'berlin' or lc($stop) ~~ [qw[hbf hauptbahnhof]] ) { $expiry = 600; } @@ -31,7 +31,7 @@ sub get_results { default_expires => "${expiry} sec", ); - my $sstr = ( "${backend} _ ${stop} _ ${city}" ); + my $sstr = ("${backend} _ ${stop} _ ${city}"); $sstr =~ tr{a-zA-Z0-9}{_}c; my $results = $cache->thaw($sstr); @@ -203,7 +203,6 @@ sub render_image { // $strp_simple->parse_datetime($time); my $dt; - if ( ( @grep_line and not( grep { $line =~ $_ } @grep_line ) ) or ( @grep_platform and not( $platform ~~ \@grep_platform ) ) or ( $line =~ m{ ^ (RB | RE | IC | EC) }x ) ) diff --git a/lib/App/VRR/Fakedisplay.pm.PL b/lib/App/VRR/Fakedisplay.pm.PL index 3ad0fe5..59d0561 100644 --- a/lib/App/VRR/Fakedisplay.pm.PL +++ b/lib/App/VRR/Fakedisplay.pm.PL @@ -20,7 +20,7 @@ sub write_out { say $out_fh "'${char}' => {"; say $out_fh 'matrix => ['; - if ($char eq '1') { + if ( $char eq '1' ) { $off_x--; } @@ -49,7 +49,7 @@ sub write_out { $char_w = 5; } - if ($char ~~ [qw[0 1 2 3 4 5 6 7 8 9]]) { + if ( $char ~~ [qw[0 1 2 3 4 5 6 7 8 9]] ) { $char_w = 6; } |