From 920420f7c4af55e877e94d13d1d0ef4631ff8f32 Mon Sep 17 00:00:00 2001
From: Michael Gernoth <michael@gernoth.net>
Date: Sun, 23 Dec 2012 17:12:19 +0100
Subject: [PATCH] use of qw() as parentheses is deprecated...

---
 rsbs2.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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};
 			}
-- 
2.39.2