localize $/ in more places to avoid potential problems

This hopefully makes the intent of the code clearer, too.
The the HTTP use of the numeric reference for getline
caused problems in Git.pm, already.

1 files changed, 2 insertions, 0 deletions

diff --git a/t/httpd-corner.psgi b/t/httpd-corner.psgi
index 2f7be832..222b9e01 100644
--- a/t/httpd-corner.psgi
+++ b/t/httpd-corner.psgi
@@ -30,6 +30,7 @@ my $app = sub {
                         return sub {
                                 open my $f, '<', $fifo or
                                                 die "open $fifo: $!\n";
+                                local $/ = "\n";
                                 my @r = <$f>;
                                 $_[0]->([200, $h, \@r ]);
                         };
@@ -38,6 +39,7 @@ my $app = sub {
                                 my $fh = $_[0]->([200, $h]);
                                 open my $f, '<', $fifo or
                                                 die "open $fifo: $!\n";
+                                local $/ = "\n";
                                 while (defined(my $l = <$f>)) {
                                         $fh->write($l);
                                 }