From 6866d9980116e3a800d8296dd833e4d3d484c88c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 14 Apr 2016 18:14:18 +0200
Subject: perl_checker cleanup

---
 urpm/install.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/urpm/install.pm b/urpm/install.pm
index d327390b..52e246c5 100644
--- a/urpm/install.pm
+++ b/urpm/install.pm
@@ -305,7 +305,7 @@ sub _get_callbacks {
 	$current_pkg = $trans->Element_fullname($idx);
     };
     $options->{callback_error} ||= sub {
-	my ($urpm, undef, $id, $subtype, undef, undef) = @_;
+	my ($urpm, undef, undef, $subtype, undef, undef) = @_;
 	$urpm->{error}("ERROR: '$subtype' failed for $current_pkg");
     };
 
-- 
cgit v1.2.1