summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-08-29 22:25:44 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-08-29 22:25:44 +0000
commitfb80b8a8984779543f0f0c50d7f6dcb995e0ce96 (patch)
treeedc635dbab544cc05ce647aafd59419607271596 /perl-install/install_steps.pm
parentd5e061896a35a49a50124949c2882ac9cbe94589 (diff)
downloaddrakx-fb80b8a8984779543f0f0c50d7f6dcb995e0ce96.tar
drakx-fb80b8a8984779543f0f0c50d7f6dcb995e0ce96.tar.gz
drakx-fb80b8a8984779543f0f0c50d7f6dcb995e0ce96.tar.bz2
drakx-fb80b8a8984779543f0f0c50d7f6dcb995e0ce96.tar.xz
drakx-fb80b8a8984779543f0f0c50d7f6dcb995e0ce96.zip
no_comment
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r--perl-install/install_steps.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 8e086f70d..622d14dc9 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -212,6 +212,8 @@ sub addUser($) {
$u{password} = crypt_($u{password}) if $u{password};
+ return if $::testing;
+
local *F;
open F, ">> $p/etc/passwd" or die "can't append to passwd file: $!";
print F join(':', @u{@etc_pass_fields}), "\n";