X-Git-Url: https://pd.if.org/git/?p=newsd;a=blobdiff_plain;f=Net-Server-NNTP%2Flib%2FNet%2FServer%2FNNTP.pm;h=54765487dc4a86ca06d192491670b618f8863a67;hp=63c37b097622febbf9f5108ef73849b372e5bee5;hb=5c9fea27af804cd4afeea4a705ad23db8bc5b16e;hpb=6585ff02fccc50f6bb6e3b23aa4dc906762af06e diff --git a/Net-Server-NNTP/lib/Net/Server/NNTP.pm b/Net-Server-NNTP/lib/Net/Server/NNTP.pm index 63c37b0..5476548 100644 --- a/Net-Server-NNTP/lib/Net/Server/NNTP.pm +++ b/Net-Server-NNTP/lib/Net/Server/NNTP.pm @@ -62,13 +62,6 @@ Perhaps a little code snippet. 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 @@ -407,9 +400,9 @@ sub stat { $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 {