diff options
author | Eric Wong <e@yhbt.net> | 2020-01-26 10:29:22 +0000 |
---|---|---|
committer | Eric Wong <e@yhbt.net> | 2020-01-28 01:49:50 +0000 |
commit | fb0afdaa35d778c237c40b10216c38e360b248b3 (patch) | |
tree | 83cdfab84a2f40671737638ea53b1e877a05c7e0 /lib/PublicInbox/Qspawn.pm | |
parent | 9689c65f42c0acc9021953b29ce55730c4cd841d (diff) | |
download | public-inbox-fb0afdaa35d778c237c40b10216c38e360b248b3.tar.gz |
Perl 5.14+ gained the ability to autoload IO::File (and IO::Handle) on missing methods, so relying on this breaks under 5.10.1. There's no reason to load IO::File or IO::Handle when built-in perlops work fine and are even a hair faster.
Diffstat (limited to 'lib/PublicInbox/Qspawn.pm')
-rw-r--r-- | lib/PublicInbox/Qspawn.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/PublicInbox/Qspawn.pm b/lib/PublicInbox/Qspawn.pm index 31a1583d..3425e5e4 100644 --- a/lib/PublicInbox/Qspawn.pm +++ b/lib/PublicInbox/Qspawn.pm @@ -164,7 +164,7 @@ reread: $async->async_pass($self->{psgi_env}->{'psgix.io'}, $qx_fh, \$buf); } elsif (defined $r) { - $r ? $qx_fh->write($buf) : event_step($self, undef); + $r ? (print $qx_fh $buf) : event_step($self, undef); } else { return if $! == EAGAIN; # try again when notified goto reread if $! == EINTR; |