From cd149734943cb3afee3189320d68df3cc7c58eed Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 2 Sep 2005 09:05:09 +0000 Subject: fs::format::wait_message() is now ->wait_message_with_progress_bar (on interactive objects) --- perl-install/install_any.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index ca1f00a2e..cf4030cce 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -749,7 +749,7 @@ Please insert the Cd-Rom labelled \"%s\" in your drive and press Ok when done.", my $m = install_medium::by_id($k, $o->{packages}); #- don't copy rpms of supplementary media next if $m->is_suppl; - my ($wait_w, $wait_message) = fs::format::wait_message($o); #- nb, this is only called when interactive + my ($wait_w, $wait_message) = $o->wait_message_with_progress_bar; #- 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 = $m->get_cd_number; -- cgit v1.2.1