Drop blank lines at the start of a parsed section and don't treat blank

lines at the start of text as another paragraph.  Thanks to Benjamin A'Lee
for the report.

1 files changed, 2 insertions, 0 deletions

diff --git a/bin/spin b/bin/spin
index a82ab27..2d0b9aa 100755
--- a/bin/spin
+++ b/bin/spin
@@ -613,6 +613,7 @@ sub format_string {
 # can contain multiple paragraphs.
 sub split_paragraphs {
     my $text = shift;
+    $text =~ s/^\n(\s*\n)+/\n/;
     my @paragraphs;
     while ($text && $text =~ s/^(.*?(?:\n\n+|\s*\z))//s) {
         my $paragraph = $1;
@@ -1031,6 +1032,7 @@ sub spin {
                 $_ .= $extra;
             }
             my $result = parse (escape ($_), 1);
+            $result =~ s/^(?:\s*\n)+//;
             output $result unless ($result =~ /^\s*$/);
             ($fh, $FILE) = @{ $FILES[0] };
         }