qspawn|httpd/async: improve and fix out-of-date comments

diff --git a/lib/PublicInbox/HTTPD/Async.pm b/lib/PublicInbox/HTTPD/Async.pm
index a8488b6be4ff0568a0c52561290d430a468f3b81..a9a9573b28cf4609f1880ece72034cb3e6e7aa3c 100644 (file)
--- a/lib/PublicInbox/HTTPD/Async.pm
+++ b/lib/PublicInbox/HTTPD/Async.pm
@@ -23,6 +23,7 @@ sub new {
        $self;
 }
 
+# fires after pending writes are complete:
 sub restart_read_cb ($) {
        my ($self) = @_;
        sub { $self->watch_read(1) }

diff --git a/lib/PublicInbox/Qspawn.pm b/lib/PublicInbox/Qspawn.pm
index 3247cd078cba71aaaa058798cff4840309ca7932..96fbf38d1cbda2e4c6c939757969c0b90d7b7032 100644 (file)
--- a/lib/PublicInbox/Qspawn.pm
+++ b/lib/PublicInbox/Qspawn.pm
@@ -86,8 +86,6 @@ sub psgi_return {
                $fh->close if $fh; # async-only
        };
 
-       # Danga::Socket users, we queue up the read_enable callback to
-       # fire after pending writes are complete:
        my $buf = '';
        my $rd_hdr = sub {
                my $r = sysread($rpipe, $buf, 1024, length($buf));
@@ -102,7 +100,7 @@ sub psgi_return {
                my $filter = delete $env->{'qspawn.filter'};
                if (scalar(@$r) == 3) { # error
                        if ($async) {
-                               $async->close; # calls rpipe->close
+                               $async->close; # calls rpipe->close and $end
                        } else {
                                $rpipe->close;
                                $end->();