summaryrefslogtreecommitdiff
path: root/lib/Travel
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2014-01-24 08:25:56 +0100
committerDaniel Friesel <derf@finalrewind.org>2014-01-24 08:25:56 +0100
commitbfd099f967429eafdacb15fa8823443b51042272 (patch)
tree0e985580cbe66a9fdd0b1dd6a8f548dacb5bc3f4 /lib/Travel
parentc29f487ec8dda9b156ae924cc00cc6a72b31a495 (diff)
perlcritic
Diffstat (limited to 'lib/Travel')
-rw-r--r--lib/Travel/Status/DE/IRIS.pm6
1 files changed, 3 insertions, 3 deletions
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 ];
}
}