diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_any.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 8ce4ce1a3..bc15d0f90 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -40,9 +40,9 @@ my $cdrom; my %iso_images; sub mountCdrom { - my ($mountpoint, $cdrom_) = @_; - $cdrom_ = $cdrom if !defined $cdrom_; - eval { fs::mount($cdrom_, $mountpoint, "iso9660", 'readonly') }; + my ($mountpoint, $o_cdrom) = @_; + $o_cdrom = $cdrom if !defined $o_cdrom; + eval { fs::mount($o_cdrom, $mountpoint, "iso9660", 'readonly') }; } sub useMedium($) { @@ -175,7 +175,7 @@ sub errorOpeningFile($) { return; } sub getFile { - my ($f, $o_method, $altroot) = @_; + my ($f, $o_method, $o_altroot) = @_; log::l("getFile $f:$o_method"); my $rel = relGetFile($f); do { @@ -196,8 +196,8 @@ sub getFile { #- this allows handling changing a media when some of the files on the #- first CD have been copied to other to avoid media change... my $f2 = "$postinstall_rpms/$f"; - $altroot ||= '/tmp/image'; - $f2 = "$altroot/$rel" if !$postinstall_rpms || !-e $f2; + $o_altroot ||= '/tmp/image'; + $f2 = "$o_altroot/$rel" if !$postinstall_rpms || !-e $f2; $f2 = $rel if $rel =~ m!^/! && !-e $f2; #- not a relative path my $F; open($F, $f2) && $F; } |