(setState) enable perl_checker to check callers

1 files changed, 1 insertions, 1 deletions

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]);