diff options
| -rwxr-xr-x | bin/db-iris | 6 | ||||
| -rw-r--r-- | lib/Travel/Status/DE/IRIS.pm | 6 |
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 ]; } } |