This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Stop podcheck.t --add-link from chomping a new line
authorFather Chrysostomos <sprout@cpan.org>
Fri, 1 Jul 2011 03:33:56 +0000 (20:33 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 1 Jul 2011 03:33:56 +0000 (20:33 -0700)
    # The rest of the db file is output unchanged.
    my_safer_print($copy_fh, join "\n", @existing_issues);

Well, actually that *does* change the file.  See the diff.

t/porting/podcheck.t

index 188e0c1..edc5874 100644 (file)
@@ -962,7 +962,7 @@ if ($add_link) {
     }
 
     # The rest of the db file is output unchanged.
-    my_safer_print($copy_fh, join "\n", @existing_issues);
+    my_safer_print($copy_fh, join "\n", @existing_issues, "");
 
     close_and_rename($copy_fh);
     exit;