diff options
| -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"); } |