summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/db-iris6
-rw-r--r--lib/Travel/Status/DE/IRIS.pm6
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 ];
}
}