From 5cd051ad84b572fe83f82ab3f8353fdf3ca3eb06 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Tue, 23 Jun 2015 14:01:12 +0200
Subject: fix perlcritic warnings

---
 lib/Travel/Status/DE/EFA.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'lib/Travel/Status/DE/EFA.pm')

diff --git a/lib/Travel/Status/DE/EFA.pm b/lib/Travel/Status/DE/EFA.pm
index f261855..2f475d8 100644
--- a/lib/Travel/Status/DE/EFA.pm
+++ b/lib/Travel/Status/DE/EFA.pm
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 use 5.010;
 
-no if $] >= 5.018, warnings => "experimental::smartmatch";
+no if $] >= 5.018, warnings => 'experimental::smartmatch';
 
 our $VERSION = '1.09';
 
@@ -163,7 +163,7 @@ sub sprintf_date {
 	my ($e) = @_;
 
 	if ( $e->getAttribute('day') == -1 ) {
-		return undef;
+		return;
 	}
 
 	return sprintf( '%02d.%02d.%d',
@@ -177,7 +177,7 @@ sub sprintf_time {
 	my ($e) = @_;
 
 	if ( $e->getAttribute('minute') == -1 ) {
-		return undef;
+		return;
 	}
 
 	return sprintf( '%02d:%02d',
@@ -441,7 +441,7 @@ sub results {
 			$platform_is_db = 1;
 		}
 
-		if ( $platform_name and $platform_name =~ m{ ^ (Gleis | Bstg\.)}ox ) {
+		if ( $platform_name and $platform_name =~ m{ ^ (Gleis | Bstg[.])}ox ) {
 			$platform = ( split( / /, $platform_name ) )[1];
 		}
 		elsif ( $platform_name and not $platform ) {
-- 
cgit v1.2.3