summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-06-25 06:18:24 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-06-25 06:18:24 +0000
commit88f64118d7bece83c4fbc2219282b8b2fcc0c324 (patch)
tree3d1b5251de2fc9ef0764fc22f64f2ac6c1ca6282 /perl-install/install_any.pm
parentf3e2845a3372eb0e8fb834da85ead57ea6f25324 (diff)
downloaddrakx-88f64118d7bece83c4fbc2219282b8b2fcc0c324.tar
drakx-88f64118d7bece83c4fbc2219282b8b2fcc0c324.tar.gz
drakx-88f64118d7bece83c4fbc2219282b8b2fcc0c324.tar.bz2
drakx-88f64118d7bece83c4fbc2219282b8b2fcc0c324.tar.xz
drakx-88f64118d7bece83c4fbc2219282b8b2fcc0c324.zip
Make perl_checker silent
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm12
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;
}