summaryrefslogtreecommitdiffstats
path: root/perl-install/install2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-04-09 13:22:22 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-04-09 13:22:22 +0000
commitb2f4aa5858588095829660094a6f9c12a1883445 (patch)
treec9ec061dc37970b477a2a7a4998287ee29ed7cc1 /perl-install/install2.pm
parent675bf00c2e32d3e7adff71515d532206d432af75 (diff)
downloaddrakx-b2f4aa5858588095829660094a6f9c12a1883445.tar
drakx-b2f4aa5858588095829660094a6f9c12a1883445.tar.gz
drakx-b2f4aa5858588095829660094a6f9c12a1883445.tar.bz2
drakx-b2f4aa5858588095829660094a6f9c12a1883445.tar.xz
drakx-b2f4aa5858588095829660094a6f9c12a1883445.zip
(main): sets umask (seems like default one is no more 022, kernel change?)
Diffstat (limited to 'perl-install/install2.pm')
-rw-r--r--perl-install/install2.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 762e1c814..b6995e80b 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -343,6 +343,7 @@ sub main {
install_steps_auto_install::errorInStep();
};
$ENV{PERL_BADLANG} = 1;
+ umask 022;
$::isInstall = 1;
$::expert = $::g_auto_install = 0;
@@ -546,7 +547,6 @@ sub main {
MAIN: for ($o->{step} = $o->{steps}{first};; $o->{step} = getNextStep()) {
$o->{steps}{$o->{step}}{entered}++;
$o->enteringStep($o->{step});
- log::l("umask is ", umask());
eval {
&{$install2::{$o->{step}}}($clicked, $o->{steps}{$o->{step}}{entered});
};