From a7abd18299bdeb6e632774b3df7636a8c4aaeb58 Mon Sep 17 00:00:00 2001
From: Raphaël Hertzog <hertzog@debian.org>
Date: Wed, 18 Nov 2009 11:20:58 +0100
Subject: 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.
---
 scripts/Dpkg/Control/Fields.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'scripts/Dpkg/Control')

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);
 
-- 
cgit v1.2.3