From 648401be374717f963becd46e8ce90abb26333fe Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Mon, 10 Feb 2020 17:10:03 -0700
Subject: style

---
 perl5/Local/Homedir.pm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'perl5')

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;
 }
-- 
cgit v1.2.3