lib: replace shift by @_

2023-05-18 11:17:14 +02:00
parent 611fad43d4
commit 3a1a118eeb
26 changed files with 184 additions and 390 deletions
--- a/lib/calcms/images.pm
+++ b/lib/calcms/images.pm
@@ -454,8 +454,7 @@ sub depublish ($$) {
 }

 sub checkLicence ($$) {
-    my $config = shift;
-    my $result = shift;
+    my ($config, $result) = @_;

    print STDERR "depublish\n";
    return undef unless defined $config;