Remove redundant lines from embedded Perl by combining blank lines.

build/lib/pgBackRestBuild/Embed/Build.pm

@@ -76,6 +76,8 @@ sub buildEmbed
                 "        .name = \"${strModule}\",\n" .
                 "        .data =\n";
 
+            my $strLfLine = undef;
+
             # Process each line
             foreach my $strLine (split("\n", $strData))
             {
@@ -92,9 +94,20 @@ sub buildEmbed
                 # Remove leading/trailing spaces
                 $strLine = trim($strLine);
 
-                # Output line
+                # If empty line then add it to the total empty lines
-                $strBuildSource .=
+                if ($strLine eq "")
-                    "            \"$strLine\\n\"\n";
+                {
+                    $strLfLine .= "\\n";
+                }
+                # Output line (and empty lines if any)
+                else
+                {
+                    $strBuildSource .=
+                        (defined($strLfLine) ? "            \"$strLfLine\"\n" : '') .
+                        "            \"$strLine\\n\"\n";
+
+                    $strLfLine = undef;
+                }
             }
 
             $strBuildSource .=

doc/xml/release.xml

@@ -78,6 +78,10 @@
                     <release-item>
                         <p>Rename error-handling variables in <code>Main.pm</code> to conform to standard.</p>
                     </release-item>
+
+                    <release-item>
+                        <p>Remove redundant lines from embedded Perl by combining blank lines.</p>
+                    </release-item>
                 </release-development-list>
             </release-core-list>