about summary refs log tree commit homepage
diff options
context:
space:
mode:
-rw-r--r--lib/PublicInbox/Config.pm1
-rw-r--r--lib/PublicInbox/Daemon.pm1
-rw-r--r--lib/PublicInbox/Feed.pm2
-rw-r--r--lib/PublicInbox/Git.pm1
-rw-r--r--lib/PublicInbox/SearchIdx.pm2
-rw-r--r--t/httpd-corner.psgi2
-rw-r--r--t/httpd-unix.t1
7 files changed, 10 insertions, 0 deletions
diff --git a/lib/PublicInbox/Config.pm b/lib/PublicInbox/Config.pm
index b5f0fcb1..b38f4443 100644
--- a/lib/PublicInbox/Config.pm
+++ b/lib/PublicInbox/Config.pm
@@ -80,6 +80,7 @@ sub git_config_dump {
         my $pid = open(my $fh, '-|', @cmd);
         defined $pid or die "$cmd failed: $!";
         my %rv;
+        local $/ = "\n";
         foreach my $line (<$fh>) {
                 chomp $line;
                 my ($k, $v) = split(/=/, $line, 2);
diff --git a/lib/PublicInbox/Daemon.pm b/lib/PublicInbox/Daemon.pm
index 8de7ff24..dc810106 100644
--- a/lib/PublicInbox/Daemon.pm
+++ b/lib/PublicInbox/Daemon.pm
@@ -350,6 +350,7 @@ sub unlink_pid_file_safe_ish ($$) {
         return unless defined $unlink_pid && $unlink_pid == $$;
 
         open my $fh, '<', $file or return;
+        local $/ = "\n";
         defined(my $read_pid = <$fh>) or return;
         chomp $read_pid;
         if ($read_pid == $unlink_pid) {
diff --git a/lib/PublicInbox/Feed.pm b/lib/PublicInbox/Feed.pm
index e2df97b1..6ed00856 100644
--- a/lib/PublicInbox/Feed.pm
+++ b/lib/PublicInbox/Feed.pm
@@ -224,6 +224,7 @@ sub each_recent_blob {
         my $nr = 0;
         my ($cur_commit, $first_commit, $last_commit);
         my ($ts, $subj, $u);
+        local $/ = "\n";
         while (defined(my $line = <$log>)) {
                 if ($line =~ /$addmsg/o) {
                         my $add = $1;
@@ -244,6 +245,7 @@ sub each_recent_blob {
         }
 
         if ($last) {
+                local $/ = "\n";
                 while (my $line = <$log>) {
                         if ($line =~ /^(${hex}{7,40})/o) {
                                 $last_commit = $1;
diff --git a/lib/PublicInbox/Git.pm b/lib/PublicInbox/Git.pm
index 473cdffa..bc0e5064 100644
--- a/lib/PublicInbox/Git.pm
+++ b/lib/PublicInbox/Git.pm
@@ -122,6 +122,7 @@ sub popen {
 sub qx {
         my ($self, @cmd) = @_;
         my $fh = $self->popen(@cmd);
+        local $/ = "\n";
         return <$fh> if wantarray;
         local $/;
         <$fh>
diff --git a/lib/PublicInbox/SearchIdx.pm b/lib/PublicInbox/SearchIdx.pm
index 9192bb07..4a4b2bdb 100644
--- a/lib/PublicInbox/SearchIdx.pm
+++ b/lib/PublicInbox/SearchIdx.pm
@@ -338,6 +338,7 @@ sub rlog {
                                 --raw -r --no-abbrev/, $range);
         my $latest;
         my $bytes;
+        local $/ = "\n";
         while (defined(my $line = <$log>)) {
                 if ($line =~ /$addmsg/o) {
                         my $mime = do_cat_mail($git, $1, \$bytes) or next;
@@ -445,6 +446,7 @@ sub _read_git_config_perm {
         my ($self) = @_;
         my @cmd = qw(config core.sharedRepository);
         my $fh = PublicInbox::Git->new($self->{git_dir})->popen(@cmd);
+        local $/ = "\n";
         my $perm = <$fh>;
         chomp $perm if defined $perm;
         $perm;
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');