From fb10f6b776ae5dfe1792916a1eb0c386fc6f5563 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Mon, 4 Apr 2005 15:14:41 +0000 Subject: /me sux --- perl-install/install_any.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 69cafb1ba..b762b8f4f 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -711,8 +711,8 @@ Please insert the Cd-Rom labelled \"%s\" in your drive and press Ok when done.", my ($wait_w, $wait_message) = fs::format::wait_message($o); #- nb, this is only called when interactive $wait_message->(N("Copying in progress") . "\n($m->{descr})"); #- XXX to be translated if ($k != $current_medium) { - my $cd_k = getCDNumber($m->{description}); - my $cd_cur = getCDNumber($o->{packages}{mediums}{$current_medium}{description}); + my $cd_k = getCDNumber($m->{descr}); + my $cd_cur = getCDNumber($o->{packages}{mediums}{$current_medium}{descr}); $cd_k ne $cd_cur and do { askChangeMedium($o->{method}, $k) or next; -- cgit v1.2.1