summaryrefslogtreecommitdiff
path: root/scripts/Dpkg/Control/Fields.pm
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/Dpkg/Control/Fields.pm')
-rw-r--r--scripts/Dpkg/Control/Fields.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/scripts/Dpkg/Control/Fields.pm b/scripts/Dpkg/Control/Fields.pm
index c4c1a0f10..673784914 100644
--- a/scripts/Dpkg/Control/Fields.pm
+++ b/scripts/Dpkg/Control/Fields.pm
@@ -412,8 +412,9 @@ added to $to otherwise.
=cut
-sub field_transfer_single($$_) {
+sub field_transfer_single($$;$) {
my ($from, $to, $field) = @_;
+ $field = $_ unless defined $field;
my ($from_type, $to_type) = ($from->get_type(), $to->get_type());
$field = field_capitalize($field);