From fe087ed9bb223366676eef790def68102497f77c Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 18 Jun 2004 05:39:25 +0000 Subject: add and use install_any::method_allows_medium_change --- perl-install/install_steps_gtk.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/install_steps_gtk.pm') diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 7ee2212c0..de0ae5b4e 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -591,7 +591,7 @@ sub installPackages { my ($method, $medium) = @_; #- if not using a cdrom medium or an iso image, always abort. - return unless $method =~ /(^cdrom|-iso)$/ && !$::oem; + return unless method_allows_medium_change($method) && !$::oem; my $name = pkgs::mediumDescr($o->{packages}, $medium); local $| = 1; print "\a"; -- cgit v1.2.1