diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-02 20:41:44 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-02 20:41:44 +0000 |
| commit | 9519d51eb29b0a5881bc859e1c2b9b3b3a8abfa6 (patch) | |
| tree | 61aeae2581a101186add4569667ddac27876bd0e /perl-install/network/smb.pm | |
| parent | 5ea5e381f9840d127fe444d8eecf34be4c45d0e6 (diff) | |
| download | drakx-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.pm | 3 |
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)); } |