diff options
author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-06-25 06:18:24 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-06-25 06:18:24 +0000 |
commit | 88f64118d7bece83c4fbc2219282b8b2fcc0c324 (patch) | |
tree | 3d1b5251de2fc9ef0764fc22f64f2ac6c1ca6282 /perl-install | |
parent | f3e2845a3372eb0e8fb834da85ead57ea6f25324 (diff) | |
download | drakx-backup-do-not-use-88f64118d7bece83c4fbc2219282b8b2fcc0c324.tar drakx-backup-do-not-use-88f64118d7bece83c4fbc2219282b8b2fcc0c324.tar.gz drakx-backup-do-not-use-88f64118d7bece83c4fbc2219282b8b2fcc0c324.tar.bz2 drakx-backup-do-not-use-88f64118d7bece83c4fbc2219282b8b2fcc0c324.tar.xz drakx-backup-do-not-use-88f64118d7bece83c4fbc2219282b8b2fcc0c324.zip |
Make perl_checker silent
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; } |