perlcritic

2 files changed, 6 insertions, 6 deletions

diff --git a/bin/db-iris b/bin/db-iris
index f6de1e2..a54e3c1 100755
--- a/bin/db-iris
+++ b/bin/db-iris
@@ -56,7 +56,7 @@ my ($station) = @ARGV;
 $station = get_station($station);
 
 if ($date) {
-	my ( $day, $month, $year ) = split( /\./, $date );
+	my ( $day, $month, $year ) = split( qr{ [.] }ox, $date );
 	$datetime->set(
 		day   => $day,
 		month => $month,
@@ -64,7 +64,7 @@ if ($date) {
 	);
 }
 if ($time) {
-	my ( $hour, $minute, $second ) = split( /:/, $time );
+	my ( $hour, $minute, $second ) = split( qr{ : }ox, $time );
 	$datetime->set(
 		hour   => $hour,
 		minute => $minute,
@@ -156,7 +156,7 @@ sub display_result {
 		}
 		if ( $edata{qos} and $d->qos_messages ) {
 			printf( '  %s',
-				join( '  ', map { $_->[1] } ( reverse $d->qos_messages ) ) );
+				join( q{  }, map { $_->[1] } ( reverse $d->qos_messages ) ) );
 		}
 		print "\n";
 
diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm
index e4a8dba..6111882 100644
--- a/lib/Travel/Status/DE/IRIS.pm
+++ b/lib/Travel/Status/DE/IRIS.pm
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 use 5.014;
 
-no if $] >= 5.018, warnings => "experimental::smartmatch";
+no if $] >= 5.018, warnings => 'experimental::smartmatch';
 
 our $VERSION = '0.00';
 
@@ -192,11 +192,11 @@ sub get_realtime {
 		for my $e_m (@e_ms) {
 			my $type  = $e_m->getAttribute('t');
 			my $value = $e_m->getAttribute('c');
-			my $id    = $e_m->getAttribute('id');
+			my $msgid = $e_m->getAttribute('id');
 			my $ts    = $e_m->getAttribute('ts');
 
 			if ($value) {
-				$messages{$id} = [ $ts, $type, $value ];
+				$messages{$msgid} = [ $ts, $type, $value ];
 			}
 		}