summaryrefslogtreecommitdiffstats
path: root/perl-install/network/smb.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-08-11 20:20:08 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-08-11 20:20:08 +0000
commit00b01ef387f853bac3ef683b40596df3ec66cc9a (patch)
tree4c38fc6173650ca4a6f4ed03697a0856f1e6bf85 /perl-install/network/smb.pm
parentb47077300a92f280c616f00cdc82707c2d9ceaa9 (diff)
downloaddrakx-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/network/smb.pm')
-rw-r--r--perl-install/network/smb.pm2
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");
}