diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-08-11 20:20:08 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-08-11 20:20:08 +0000 |
| commit | 00b01ef387f853bac3ef683b40596df3ec66cc9a (patch) | |
| tree | 4c38fc6173650ca4a6f4ed03697a0856f1e6bf85 /perl-install | |
| parent | b47077300a92f280c616f00cdc82707c2d9ceaa9 (diff) | |
| download | drakx-00b01ef387f853bac3ef683b40596df3ec66cc9a.tar drakx-00b01ef387f853bac3ef683b40596df3ec66cc9a.tar.gz drakx-00b01ef387f853bac3ef683b40596df3ec66cc9a.tar.bz2 drakx-00b01ef387f853bac3ef683b40596df3ec66cc9a.tar.xz drakx-00b01ef387f853bac3ef683b40596df3ec66cc9a.zip | |
fix yet another bug regarding credentials during install
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/smb.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/network/smb.pm b/perl-install/network/smb.pm index 751dbbc4a..f59d43bd0 100644 --- a/perl-install/network/smb.pm +++ b/perl-install/network/smb.pm @@ -131,7 +131,7 @@ sub remove_bad_credentials { sub save_credentials { my ($credentials) = @_; my $file = $credentials->{file}; - output_p($file, map { "$_ = $credentials->{$_}\n" } qw(username domain password)); + output_p("$::prefix$file", map { "$_ = $credentials->{$_}\n" } qw(username domain password)); chmod(0640, "$::prefix$file"); } |