t/httpd-unix.t: avoid race in between bind() and listen()

[public-inbox.git] / t / nntp.t

diff --git a/t/nntp.t b/t/nntp.t
index 6df7db89b1b4a49e30b20e5bcc1d90e82ca1dea0..7ab801c1c2bdcb4f8ba2bd6985c56f91d6ca387b 100644 (file)
--- a/t/nntp.t
+++ b/t/nntp.t
@@ -3,9 +3,8 @@
 use strict;
 use warnings;
 use Test::More;
-use Data::Dumper;
 
-foreach my $mod (qw(DBD::SQLite Search::Xapian Danga::Socket)) {
+foreach my $mod (qw(DBD::SQLite Data::Dumper)) {
        eval "require $mod";
        plan skip_all => "$mod missing for nntp.t" if $@;
 }
@@ -15,7 +14,7 @@ use_ok 'PublicInbox::Inbox';
 
 {
        sub quote_str {
-               my (undef, $s) = split(/ = /, Dumper($_[0]), 2);
+               my (undef, $s) = split(/ = /, Data::Dumper::Dumper($_[0]), 2);
                $s =~ s/;\n//;
                $s;
        }