diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2014-01-24 08:25:56 +0100 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2014-01-24 08:25:56 +0100 |
| commit | bfd099f967429eafdacb15fa8823443b51042272 (patch) | |
| tree | 0e985580cbe66a9fdd0b1dd6a8f548dacb5bc3f4 /lib/Travel/Status/DE | |
| parent | c29f487ec8dda9b156ae924cc00cc6a72b31a495 (diff) | |
perlcritic
Diffstat (limited to 'lib/Travel/Status/DE')
| -rw-r--r-- | lib/Travel/Status/DE/IRIS.pm | 6 |
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 ]; } } |