lib: replace shift my @_ (pt2)

2023-05-19 18:00:29 +02:00
parent 3a1a118eeb
commit fe857c6f65
32 changed files with 203 additions and 332 deletions
--- a/lib/calcms/studios.pm
+++ b/lib/calcms/studios.pm
@@ -133,8 +133,8 @@ sub check_studio($$) {
 }

 sub check ($$) {
-    my $config  = shift;
-    my $options = shift;
+    my ($config, $options) = @_;
+
    return "missing studio_id" unless defined $options->{studio_id};
    return "Please select a studio" if ( $options->{studio_id} eq '-1' );
    return "Please select a studio" if ( $options->{studio_id} eq '' );