Don't leave a trailing space for blank values

rwstauner · Mar 21, 2013 · 81d8ec0 · 81d8ec0
1 parent c17fcdf
commit 81d8ec0
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/Changes b/Changes
@@ -2,6 +2,8 @@ Revision history for Config-MVP-Writer-INI
 
 {{$NEXT}}
 
+  - Don't leave a trailing space on a line where a config value is blank
+
 0.002     2013-03-04T00:45:53Z
 
   - Document and test the 'spacing' and 'rewrite_package' options

diff --git a/lib/Config/MVP/Writer/INI.pm b/lib/Config/MVP/Writer/INI.pm
@@ -131,8 +131,10 @@ sub _ini_section_config {
 
     foreach my $k ( sort keys %$config ){
       my $v = $config->{ $k };
+      $v = '' if !defined $v;
       push @lines,
-        map { sprintf "%-*s = %s\n", $len, $k, $_ }
+        # don't end a line with "=\x20" (when the value is '')
+        map { sprintf "%-*s =%s\n", $len, $k, (length($_) ? ' ' . $_ : '') }
           # one k=v line per array item
           ref $v eq 'ARRAY'
             ? @$v