pass parameters with @_ instead of shift

2024-01-01 20:15:42 +01:00
parent b93c4ee866
commit 115f4dca60
23 changed files with 55 additions and 112 deletions
--- a/website/agenda/planung/playout.cgi
+++ b/website/agenda/planung/playout.cgi
@@ -75,8 +75,7 @@ if ( defined $params->{action} ) {
 return;

 sub deleteFromPlayout {
-    my $config  = shift;
-    my $request = shift;
+    my ($config, $request) = @_;

    my $params      = $request->{params}->{checked};
    my $permissions = $request->{permissions};