]> Sergey Matveev's repositories - public-inbox.git/commitdiff
Merge remote-tracking branch 'origin/danga-bundle'
authorEric Wong <e@80x24.org>
Wed, 8 May 2019 19:24:07 +0000 (19:24 +0000)
committerEric Wong <e@80x24.org>
Wed, 8 May 2019 19:24:07 +0000 (19:24 +0000)
* origin/danga-bundle:
  DS: epoll: fix misordered EPOLL_CTL_DEL call
  DS: drop unused "_undef" sub
  syscall: drop readahead wrapper
  build: do not manify DS and Syscall pods
  DS: handle EINTR in IO::Poll path, too
  DS: workaround IO::Kqueue EINTR (mis-)handling
  DS: drop profiling support
  DS: remove unused fields and functions
  listener: use EPOLLEXCLUSIVE for listen sockets
  bundle Danga::Socket and Sys::Syscall

1  2 
INSTALL
MANIFEST
lib/PublicInbox/NNTP.pm
t/v2writable.t

diff --combined INSTALL
index b22d848409c2b6e7c5518cd3274d5cb40b683123,3c0b9108e5f0aba8e08fd1dfa21c7203cc6676ec..fafaf577683a811b20359ca894ec3de3dae2b669
+++ b/INSTALL
@@@ -22,7 -22,7 +22,7 @@@ public-inbox requires a number of othe
  functionality.  The core tools are, of course:
  
  * Git (1.8.0+, 2.6+ for writing v2 repositories)
 -* Perl 5.8+
 +* Perl 5.10.1+
  * SQLite (needed for Xapian use)
  
  To accept incoming mail into a public inbox, you'll likely want:
@@@ -73,10 -73,6 +73,6 @@@ Numerous optional modules are likely t
                                 rpm: perl-DBD-SQLite
                                 (for NNTP service or gzipped mbox over HTTP)
  
-   - Danga::Socket              deb: libdanga-socket-perl
-                                rpm: perl-Danga-Socket
-                                (for bundled HTTP and NNTP servers)
    - Net::Server                deb: libnet-server-perl
                                 rpm: perl-Net-Server
                                 (for HTTP/NNTP servers as standalone daemons,
diff --combined MANIFEST
index 4bdcda3cb8f535662729e4a4146907d7512515da,afe5ae1cd19f88b975982b2f81caef9932ab4d9c..da9e36457d5c2c4d51d5d7cd00631afb2858a6e4
+++ b/MANIFEST
@@@ -64,6 -64,7 +64,7 @@@ lib/PublicInbox/AltId.p
  lib/PublicInbox/Cgit.pm
  lib/PublicInbox/Config.pm
  lib/PublicInbox/ContentId.pm
+ lib/PublicInbox/DS.pm
  lib/PublicInbox/Daemon.pm
  lib/PublicInbox/Emergency.pm
  lib/PublicInbox/EvCleanup.pm
@@@ -117,6 -118,7 +118,7 @@@ lib/PublicInbox/Spamcheck.p
  lib/PublicInbox/Spamcheck/Spamc.pm
  lib/PublicInbox/Spawn.pm
  lib/PublicInbox/SpawnPP.pm
+ lib/PublicInbox/Syscall.pm
  lib/PublicInbox/Unsubscribe.pm
  lib/PublicInbox/UserContent.pm
  lib/PublicInbox/V2Writable.pm
@@@ -129,7 -131,6 +131,7 @@@ lib/PublicInbox/WatchMaildir.p
  lib/PublicInbox/WwwAtomStream.pm
  lib/PublicInbox/WwwAttach.pm
  lib/PublicInbox/WwwHighlight.pm
 +lib/PublicInbox/WwwListing.pm
  lib/PublicInbox/WwwStream.pm
  lib/PublicInbox/WwwText.pm
  sa_config/Makefile
diff --combined lib/PublicInbox/NNTP.pm
index e833157747041a923be927bc4043c286e03fea4b,f756e92c64b39793c682dce067c9af4473d782c3..5c5df7b0dcbe548c0284504c84ec64f782de8d18
@@@ -5,7 -5,7 +5,7 @@@
  package PublicInbox::NNTP;
  use strict;
  use warnings;
- use base qw(Danga::Socket);
+ use base qw(PublicInbox::DS);
  use fields qw(nntpd article rbuf ng long_res);
  use PublicInbox::Search;
  use PublicInbox::Msgmap;
@@@ -122,7 -122,7 +122,7 @@@ sub args_ok ($$) 
  sub process_line ($$) {
        my ($self, $l) = @_;
        my ($req, @args) = split(/\s+/, $l);
 -      return unless defined($req);
 +      return 1 unless defined($req); # skip blank line
        $req = lc($req);
        $req = eval {
                no strict 'refs';
@@@ -936,7 -936,7 +936,7 @@@ sub do_more ($$) 
        do_write($self, $data);
  }
  
- # callbacks for Danga::Socket
+ # callbacks for PublicInbox::DS
  
  sub event_hup { $_[0]->close }
  sub event_err { $_[0]->close }
@@@ -989,7 -989,7 +989,7 @@@ sub check_read 
        } else {
                # no pipelined requests available, let the kernel know
                # to wake us up if there's more
-               $self->watch_read(1); # Danga::Socket::watch_read
+               $self->watch_read(1); # PublicInbox::DS::watch_read
        }
  }
  
diff --combined t/v2writable.t
index 2826513b0d66057669408f65df02cf5657944df5,06b2251999f08ba0abf7d35035f1bdacac82d28f..f8ef415acc51061b30fbd006ee491edb74c7c536
@@@ -134,8 -134,8 +134,8 @@@ SKIP: 
        use Net::NNTP;
        use IO::Socket;
        use Socket qw(SO_KEEPALIVE IPPROTO_TCP TCP_NODELAY);
-       eval { require Danga::Socket };
-       skip "Danga::Socket missing $@", 2 if $@;
+       eval { require PublicInbox::DS };
+       skip "PublicInbox::DS missing $@", 2 if $@;
        my $err = "$mainrepo/stderr.log";
        my $out = "$mainrepo/stdout.log";
        my %opts = (
@@@ -253,9 -253,10 +253,9 @@@ EO
  }
  
  {
 -      my @warn;
        my $x = 'x'x250;
        my $y = 'y'x250;
 -      local $SIG{__WARN__} = sub { push @warn, @_ };
 +      local $SIG{__WARN__} = sub {};
        $mime->header_set('Subject', 'long mid');
        $mime->header_set('Message-ID', "<$x>");
        ok($im->add($mime), 'add excessively long Message-ID');