diff options
| author | Raphaël Hertzog <hertzog@debian.org> | 2009-11-18 11:20:58 +0100 |
|---|---|---|
| committer | Raphaël Hertzog <hertzog@debian.org> | 2009-11-18 11:20:58 +0100 |
| commit | a7abd18299bdeb6e632774b3df7636a8c4aaeb58 (patch) | |
| tree | 7f4e780f0b1538ea201c25a7357b831398495409 /scripts/Dpkg/Control | |
| parent | 2d74173f41909fd43061fb7d81a3795a6fefc59d (diff) | |
| download | dpkg-a7abd18299bdeb6e632774b3df7636a8c4aaeb58.tar.gz | |
Dpkg::Control::Fields, Dpkg::Version: avoid the "_" prototype
Keep compatibility with perl 5.8 by avoiding the "_" prototype which
has been introduced in perl 5.10.
Diffstat (limited to 'scripts/Dpkg/Control')
| -rw-r--r-- | scripts/Dpkg/Control/Fields.pm | 3 |
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); |