diag.t: Support multiline perldiag entries better

I.e., don’t require a space before the newline.

diff --git a/t/porting/diag.t b/t/porting/diag.t
index 146d626..bee1e4c 100644 (file)
--- a/t/porting/diag.t
+++ b/t/porting/diag.t
@@ -79,7 +79,7 @@ while (<$diagfh>) {
         last;
       }
 
-      $cur_entry .= $_;
+      $cur_entry =~ s/ ?\z/ $_/;
     }
 
     $cur_entry =~ s/\n/ /gs; # Fix multi-line headers if they have \n's