summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-06 22:52:57 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-06 22:52:57 +0000
commit8cb21146557a468e517db3123d481e5715971c7a (patch)
tree757b85c18f3a46f1ce331891e7f7aaf98a8b6702 /perl-install/install_any.pm
parentd3271db5a1609ee14b6f3a57aed7925644a5dabe (diff)
downloaddrakx-8cb21146557a468e517db3123d481e5715971c7a.tar
drakx-8cb21146557a468e517db3123d481e5715971c7a.tar.gz
drakx-8cb21146557a468e517db3123d481e5715971c7a.tar.bz2
drakx-8cb21146557a468e517db3123d481e5715971c7a.tar.xz
drakx-8cb21146557a468e517db3123d481e5715971c7a.zip
- have "local *FILEHANDLE" before each "open FILEHANDLE, ..."
- use some "cat_" and "output" where possible
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 312785491..b3b4b70af 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -127,7 +127,7 @@ sub getFile {
#- to other to avoid media change...
my $f2 = "$postinstall_rpms/$f";
$f2 = "/tmp/image/$rel" if !$postinstall_rpms || !-e $f2;
- open GETFILE, $f2 and *GETFILE;
+ local *F; open F, $f2 and *F;
}
} || errorOpeningFile($f);
}
@@ -586,8 +586,8 @@ sub install_urpmi {
foreach (sort { $a->{medium} <=> $b->{medium} } values %$mediums) {
my $name = $_->{fakemedium};
if ($_->{ignored} || $_->{selected}) {
- local *LIST;
my $mask = umask 077;
+ local *LIST;
open LIST, ">$prefix/var/lib/urpmi/list.$name" or log::l("failed to write list.$name");
umask $mask;
@@ -608,9 +608,9 @@ sub install_urpmi {
}
} else {
#- need to use another method here to build synthesis.
- local (*F, $_);
- open F, "parsehdlist '$prefix/var/lib/urpmi/hdlist.$name.cz' |";
- while ($_ = <F>) {
+ local *F; open F, "parsehdlist '$prefix/var/lib/urpmi/hdlist.$name.cz' |";
+ local $_;
+ while (<F>) {
print LIST "$dir/$_";
}
close F;