diff options
author | Guillem Jover <guillem@debian.org> | 2018-08-25 01:28:17 +0200 |
---|---|---|
committer | Guillem Jover <guillem@debian.org> | 2018-08-30 03:14:09 +0200 |
commit | 786870e4bb9656b39df2bdeff5cc747e41d734c4 (patch) | |
tree | 592547c89831c64f9d0e8ab5a05c475922faaec0 /scripts/Dpkg/Control | |
parent | fd1b41d81578a97399284f72ae703c0a32e3f905 (diff) | |
download | dpkg-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.pm | 9 |
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"; } |