summaryrefslogtreecommitdiff
path: root/scripts/Dpkg/Control
diff options
context:
space:
mode:
authorGuillem Jover <guillem@debian.org>2018-08-25 01:28:17 +0200
committerGuillem Jover <guillem@debian.org>2018-08-30 03:14:09 +0200
commit786870e4bb9656b39df2bdeff5cc747e41d734c4 (patch)
tree592547c89831c64f9d0e8ab5a05c475922faaec0 /scripts/Dpkg/Control
parentfd1b41d81578a97399284f72ae703c0a32e3f905 (diff)
downloaddpkg-786870e4bb9656b39df2bdeff5cc747e41d734c4.tar.gz
Dpkg::Control::Fields: Do not use & sigil for function calls
Warned-by: perlcritic Fixes: Subroutines::ProhibitAmpersandSigils
Diffstat (limited to 'scripts/Dpkg/Control')
-rw-r--r--scripts/Dpkg/Control/Fields.pm9
1 files changed, 6 insertions, 3 deletions
diff --git a/scripts/Dpkg/Control/Fields.pm b/scripts/Dpkg/Control/Fields.pm
index 4a584e413..33beeec56 100644
--- a/scripts/Dpkg/Control/Fields.pm
+++ b/scripts/Dpkg/Control/Fields.pm
@@ -32,11 +32,14 @@ foreach my $op (run_vendor_hook('register-custom-fields')) {
next if not (defined $op and ref $op); # Skip when not implemented by vendor
my $func = shift @$op;
if ($func eq 'register') {
- &field_register(@$op);
+ my ($field, $allowed_type, @opts) = @{$op};
+ field_register($field, $allowed_type, @opts);
} elsif ($func eq 'insert_before') {
- &field_insert_before(@$op);
+ my ($type, $ref, @fields) = @{$op};
+ field_insert_before($type, $ref, @fields);
} elsif ($func eq 'insert_after') {
- &field_insert_after(@$op);
+ my ($type, $ref, @fields) = @{$op};
+ field_insert_after($type, $ref, @fields);
} else {
croak "vendor hook register-custom-fields sent bad data: @$op";
}