summaryrefslogtreecommitdiffstats
path: root/perl-install/network/smb.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-02 20:41:44 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-02 20:41:44 +0000
commit9519d51eb29b0a5881bc859e1c2b9b3b3a8abfa6 (patch)
tree61aeae2581a101186add4569667ddac27876bd0e /perl-install/network/smb.pm
parent5ea5e381f9840d127fe444d8eecf34be4c45d0e6 (diff)
downloaddrakx-9519d51eb29b0a5881bc859e1c2b9b3b3a8abfa6.tar
drakx-9519d51eb29b0a5881bc859e1c2b9b3b3a8abfa6.tar.gz
drakx-9519d51eb29b0a5881bc859e1c2b9b3b3a8abfa6.tar.bz2
drakx-9519d51eb29b0a5881bc859e1c2b9b3b3a8abfa6.tar.xz
drakx-9519d51eb29b0a5881bc859e1c2b9b3b3a8abfa6.zip
use output_with_perm()
Diffstat (limited to 'perl-install/network/smb.pm')
-rw-r--r--perl-install/network/smb.pm3
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/network/smb.pm b/perl-install/network/smb.pm
index 06bd70609..e3dfc9ce6 100644
--- a/perl-install/network/smb.pm
+++ b/perl-install/network/smb.pm
@@ -131,8 +131,7 @@ sub remove_bad_credentials {
sub save_credentials {
my ($credentials) = @_;
my $file = $credentials->{file};
- output_p("$::prefix$file", map { "$_ = $credentials->{$_}\n" } qw(username domain password));
- chmod(0640, "$::prefix$file");
+ output_with_perm("$::prefix$file", 0640, map { "$_ = $credentials->{$_}\n" } qw(username domain password));
}