From: Michael Gernoth Date: Sun, 23 Dec 2012 16:12:19 +0000 (+0100) Subject: use of qw() as parentheses is deprecated... X-Git-Url: https://git.zerfleddert.de/cgi-bin/gitweb.cgi/rsbs2/commitdiff_plain/920420f7c4af55e877e94d13d1d0ef4631ff8f32?ds=sidebyside use of qw() as parentheses is deprecated... --- diff --git a/rsbs2.pl b/rsbs2.pl index d81218a..eaae36b 100755 --- a/rsbs2.pl +++ b/rsbs2.pl @@ -427,7 +427,7 @@ sub show_sensors { print $sensor->{NAME}.": ".$sensor->{VAL}.$sensor->{UNITS}; my @info = (); - foreach my $field qw(MIN MAX LOW_NON_CRITICAL UPPER_NON_CRITICAL LOW_CRITICAL UPPER_CRITICAL) { + foreach my $field (qw(MIN MAX LOW_NON_CRITICAL UPPER_NON_CRITICAL LOW_CRITICAL UPPER_CRITICAL)) { if ($sensor->{$field} ne '') { push @info, "${field}: ".$sensor->{$field}.$sensor->{UNITS}; }