From 07e63eb1aa32230a39cdcfb3771f1d9f87a6e188 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 2 Mar 2009 13:59:14 +0000 Subject: (ask_change_cd) adapt to new API --- perl-install/install/steps.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/install/steps.pm') diff --git a/perl-install/install/steps.pm b/perl-install/install/steps.pm index 6ffb79935..bd81563bc 100644 --- a/perl-install/install/steps.pm +++ b/perl-install/install/steps.pm @@ -254,8 +254,8 @@ sub ask_deselect_media__copy_on_disk { } sub ask_change_cd { - my (undef, $phys_m, $_o_rel_file) = @_; - log::l("change to medium " . install::media::phys_medium_to_string($phys_m) . " refused (it can't be done automatically)"); + my (undef, $phys_m) = @_; + log::l("change to medium $phys_m refused (it can't be done automatically)"); 0; } -- cgit v1.2.1