Commits

Shlomi Fish  committed 44921c0

More tests are passing.

  • Participants
  • Parent commits 415d447

Comments (0)

Files changed (1)

File Text-Qantor/lib/Text/Qantor/Parser.pm

         sub { my ($self, $text) = @_; return {Plain_Para_Text => $text}; },
     );
 
+    my $suffix = '';
+    if ($self->{str} =~ m/\G(?=\n)/gc) {
+        $suffix = "\n";
+    }
+
     if (not length($token)) {
         $self->fail();
     }
 
+    $token->{Plain_Para_Text} .= $suffix;
+
     return $token;
 }