diff options
author | Eric Wong <e@80x24.org> | 2016-05-21 05:27:06 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2016-05-21 05:30:10 +0000 |
commit | 57b18b44e1770b163aba55eacf53195a8305398e (patch) | |
tree | daae849408c649ab8aaa8cd100055de34873f7e2 /t | |
parent | 97d3489257811dad5381ca8b114d1b0c45554a20 (diff) | |
download | public-inbox-57b18b44e1770b163aba55eacf53195a8305398e.tar.gz |
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.
Diffstat (limited to 't')
-rw-r--r-- | t/httpd-corner.psgi | 2 | ||||
-rw-r--r-- | t/httpd-unix.t | 1 |
2 files changed, 3 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); } diff --git a/t/httpd-unix.t b/t/httpd-unix.t index 00adf13c..16f7bdd2 100644 --- a/t/httpd-unix.t +++ b/t/httpd-unix.t @@ -103,6 +103,7 @@ SKIP: { ok(-f "$tmpdir/pid", 'pid file written'); open my $fh, '<', "$tmpdir/pid" or die "open failed: $!"; + local $/ = "\n"; my $rpid = <$fh>; chomp $rpid; like($rpid, qr/\A\d+\z/s, 'pid file looks like a pid'); |