summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2015-06-23 14:01:12 +0200
committerDaniel Friesel <derf@finalrewind.org>2015-06-23 14:01:12 +0200
commit5cd051ad84b572fe83f82ab3f8353fdf3ca3eb06 (patch)
treed99c4eda589c8a949b333922792a0b6673cb3efd
parentc3daa7061eaad138b6662d159744859f64bce686 (diff)
fix perlcritic warnings
-rw-r--r--lib/Travel/Status/DE/EFA.pm8
1 files changed, 4 insertions, 4 deletions
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 ) {