From bfd099f967429eafdacb15fa8823443b51042272 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Fri, 24 Jan 2014 08:25:56 +0100 Subject: perlcritic --- lib/Travel/Status/DE/IRIS.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib') 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 ]; } } -- cgit v1.2.3