From 10a6bd261731ee1563b0debbb37866bcc56817ca Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Fri, 3 Sep 2004 03:19:35 +0000 Subject: Don't bypass errorOpeningFile, because it won't ask for further CDs anymore... (/me sux) --- 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 b2654aeae..112480514 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -210,7 +210,7 @@ sub getFile { $o_altroot ||= '/tmp/image'; $f2 = "$o_altroot/$rel" if $rel !~ m,^/, && (!$postinstall_rpms || !-e $f2); #- $f2 = "/$rel" if !$::o->{packages}{mediums}{$asked_medium}{rpmsdir} && !-e $f2; #- not a relative path, should not be necessary with new media layout - my $F; open($F, $f2) && $F or do { $f2 !~ /XXX/ and log::l("Can't open $f2: $!"); return undef } + my $F; open($F, $f2) && $F or do { $f2 !~ /XXX/ and log::l("Can't open $f2: $!"); undef } } } || errorOpeningFile($f); } -- cgit v1.2.1