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