http: fix clobbering of $null_io

Oops, this would be disatrous if we started handling
bigger request bodies or slow clients.

Fixes: c008654229a9 ("avoid IO::File for anonymous temporary files")

1 files changed, 3 insertions, 1 deletions

diff --git a/lib/PublicInbox/HTTP.pm b/lib/PublicInbox/HTTP.pm
index cac14be3..c4b74b45 100644
--- a/lib/PublicInbox/HTTP.pm
+++ b/lib/PublicInbox/HTTP.pm
@@ -328,7 +328,7 @@ sub more ($$) {
 
 sub input_prepare {
         my ($self, $env) = @_;
-        my $input = $null_io;
+        my $input;
         my $len = $env->{CONTENT_LENGTH};
         if ($len) {
                 if ($len > $MAX_REQUEST_BUFFER) {
@@ -339,6 +339,8 @@ sub input_prepare {
         } elsif (env_chunked($env)) {
                 $len = CHUNK_START;
                 open($input, '+>', undef);
+        } else {
+                $input = $null_io;
         }
 
         # TODO: expire idle clients on ENFILE / EMFILE