summaryrefslogtreecommitdiff
path: root/cgi
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2012-03-02 12:41:23 +0100
committerDaniel Friesel <derf@finalrewind.org>2012-03-02 12:41:23 +0100
commit8ef29bdcba8f3f804e0822758bca2fdd9e981ff7 (patch)
treec0156f046a2aedd6cb40e85a58128b2a22239395 /cgi
parent328072b99e40522cfe3064f2ec62f0dc660e8358 (diff)
perltidy
Diffstat (limited to 'cgi')
-rw-r--r--cgi/index.pl5
1 files changed, 2 insertions, 3 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 ) )