diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2020-02-10 17:10:03 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-02-10 17:10:03 -0700 |
commit | 648401be374717f963becd46e8ce90abb26333fe (patch) | |
tree | a384cac63aec2616a7b718163f5c3f80fac2deae /perl5 | |
parent | 93836b0328662f64d448d910ae6b4b40ab585033 (diff) | |
download | dotfiles-648401be374717f963becd46e8ce90abb26333fe.tar.gz |
style
Diffstat (limited to 'perl5')
-rw-r--r-- | perl5/Local/Homedir.pm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/perl5/Local/Homedir.pm b/perl5/Local/Homedir.pm index 09183909..ffc5cd69 100644 --- a/perl5/Local/Homedir.pm +++ b/perl5/Local/Homedir.pm @@ -59,11 +59,9 @@ sub normalise_mrconfig { # any DEFAULT has to come first to have effect on the proceding # blocks - if (defined $target_blocks{"DEFAULT"}) { - say_block($fh, "DEFAULT", $target_blocks{"DEFAULT"}); - delete $target_blocks{"DEFAULT"}; - } - say_block($fh, $_, $target_blocks{$_}) foreach keys %target_blocks; + say_block($fh, "DEFAULT", delete $target_blocks{DEFAULT}) + if $target_blocks{DEFAULT}; + say_block($fh, $_, $target_blocks{$_}) for keys %target_blocks; return 0; } |