diff --git a/lib/calcms/auth.pm b/lib/calcms/auth.pm
index 2c2ac01..118952a 100644
--- a/lib/calcms/auth.pm
+++ b/lib/calcms/auth.pm
@@ -21,9 +21,7 @@ sub debug($);
 
 #TODO: remove CGI
 sub get_user($$$) {
-    my $config = shift;
-    my $params = shift;
-    my $cgi    = shift;
+    my ($config, $params, $cgi) = @_;
 
     debug("get_user") if $debug;