rm -f news.log
PERL5LIB=./Net-Server-NNTP/lib ./newsd conf_file=test.conf
sleep 1
- prove t/*.t
+ -prove t/*.t
+ -test -f newsd.pid && kill `cat newsd.pid`
+
+vtest:
+ -test -f newsd.pid && kill `cat newsd.pid`
+ rm -f news.log
+ PERL5LIB=./Net-Server-NNTP/lib ./newsd conf_file=test.conf
+ sleep 1
+ -prove -v t/*.t
-test -f newsd.pid && kill `cat newsd.pid`
schema:
my $foo = Net::Server::NNTP->new();
...
-=head1 EXPORT
-
-Nothing is exported.
-
-A list of functions that can be exported. You can delete this section if
-you don't export anything, such as for a purely object-oriented module.
-
=cut
our $article_re = qr/\<[^\s\>]+\@[^\s\>]+\>/; # rfc 1036 2.1.5
$s->article_number($n);
} elsif (!@args) {
($g, $n) = $s->pointer;
- $s->log(4, "fetching ($g $n)");
return $s->response(412) unless defined $g;
return $s->response(420) unless defined $n;
+ $s->log(4, "fetching ($g $n)");
$id = $s->fetch_stat($g,$n);
return $s->response(420) unless defined $id;
} else {