From 8ef29bdcba8f3f804e0822758bca2fdd9e981ff7 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Fri, 2 Mar 2012 12:41:23 +0100
Subject: perltidy

---
 cgi/index.pl                  | 5 ++---
 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;
 	}
 
-- 
cgit v1.2.3