use of qw() as parentheses is deprecated...

[rsbs2] / rsbs2.pl

diff --git a/rsbs2.pl b/rsbs2.pl
index d81218a897a35c1583124b8554297a0df80e550a..eaae36b3fc241633f57366917d2123ab74d45259 100755 (executable)
--- 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};
                        }