From f463a12ccea430062feb20f8992978e4c1ccb1a0 Mon Sep 17 00:00:00 2001 From: Paul Cochrane Date: Tue, 26 Sep 2017 18:03:35 +0200 Subject: [PATCH] Remove comments about CDOLAN It doesn't seem that the comment adds any information to the code and is a bit distracting to new readers of the code. CDOLAN has been mentioned in the Changes as well as in the commit messages, so it seems that the information in the comment is superfluous. --- lib/Pod/POM/Web.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/Pod/POM/Web.pm b/lib/Pod/POM/Web.pm index 1ad0290..bb9183d 100644 --- a/lib/Pod/POM/Web.pm +++ b/lib/Pod/POM/Web.pm @@ -98,7 +98,7 @@ sub server { # builtin HTTP server; unused if running under Apache $port ||= $options->{port} || 8080; my $daemon = HTTP::Daemon->new(LocalPort => $port, - ReuseAddr => 1) # patch by CDOLAN + ReuseAddr => 1) or die "could not start daemon on port $port"; print STDERR "Please contact me at: url, ">\n"; @@ -106,7 +106,7 @@ sub server { # builtin HTTP server; unused if running under Apache while (my $client_connection = $daemon->accept) { while (my $req = $client_connection->get_request) { print STDERR "URL : " , $req->url, "\n"; - $client_connection->force_last_request; # patch by CDOLAN + $client_connection->force_last_request; my $response = HTTP::Response->new; $class->handler($req, $response, $options); $client_connection->send_response($response);