mahlon/shelldap
1
0
Fork 0
Code Issues Pull requests Activity

Improve save_config()

Browse source 
FossilOrigin-Name: 99d62ede397dea67cc9f7d6b5f4b6e3c8159a693c4dff023abac21440a72e486
This commit is contained in:
docelic@crystallabs.io 2019-05-03 17:23:54 +00:00
parent dbb0341660
commit 1b07818e6a
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
shelldap
View file

@ -2608,13 +2608,14 @@ sub save_config
{
my $confpath = shift;
my %conf2 = %$conf;
if( $confpath eq $conf->{configfile}) {
delete $conf2{'configfile'}
# This check is currently unnecessary because the comparison will always
# be true, but is left here for effect of least surprise in the future.
if( defined($conf->{'configfile'}) and ($confpath eq $conf->{'configfile'})) {
delete $conf->{'configfile'}
}
YAML::Syck::DumpFile( $conf->{'configfile'}, \%conf2 );
chmod 0600, $conf->{'configfile'};
YAML::Syck::DumpFile( $confpath, $conf );
chmod 0600, $confpath;
return 1;
}