From 79e1105c230602204353b45333bfc958853aadc3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 27 Feb 2008 15:29:47 +0000
Subject: (setState) enable perl_checker to check callers

---
 mdkapplet | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mdkapplet b/mdkapplet
index 32ddb0a9..84a2ff59 100755
--- a/mdkapplet
+++ b/mdkapplet
@@ -445,7 +445,7 @@ sub shouldStart() {
 }
 
 sub setState {
-    my $state_type = shift;
+    my ($state_type) = @_;
     my $checkme;
     my $arr = $state{$state_type}{menu};
     my $tmp = gtkcreate_pixbuf($state{$state_type}{colour}[0]);
-- 
cgit v1.2.1