lib/PublicInbox/ProcessPipe.pm | 2 +- diff --git a/lib/PublicInbox/ProcessPipe.pm b/lib/PublicInbox/ProcessPipe.pm index 7bb6ddee40b1728e8a082b2a48353522cd03108a..2769e064ca21d1651fbace905a167ba17922802b 100644 --- a/lib/PublicInbox/ProcessPipe.pm +++ b/lib/PublicInbox/ProcessPipe.pm @@ -11,7 +11,7 @@ my ($class, $pid, $fh) = @_; bless { pid => $pid, fh => $fh }, $class; } -sub READ { sysread($_[0]->{fh}, $_[1], $_[2], $_[3] || 0) } +sub READ { read($_[0]->{fh}, $_[1], $_[2], $_[3] || 0) } sub READLINE { readline($_[0]->{fh}) }