summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-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");
}