I'm using HTTP::Deamon to put together a web service.
I'm running into a situation where a client makes a request and then immediately disconnects.
The server gets the request and then trys to respond.
The first 'print' statement back to the client is in HTTP::Daemon::ClientConn::send_status_line. When the print statement executes that sends header info back to the client the program just stops.
No exceptions are raised that can be caught with an eval.
No core dumps happen.
None of my END blocks execute.
Below is a code snippet in HTTP::Deamon::ClientConn.
To 'help' me debug this I put two print statements to stdout before and after the print statement of header info back to the client.
The first statement prints.
The second never does.
sub send_status_line
{
my($self, $status, $message, $proto) = @_;
return if $self->antique_client;
$status ||= RC_OK;
$message ||= status_message($status) || "";
$proto ||= $HTTP::Daemon::PROTO || "HTTP/1.1";
print STDOUT "$$ ",__PACKAGE__,"::send_status_line before print\n"
+;
print $self "$proto $status $message$CRLF";
print STDOUT "$$ ",__PACKAGE__,"::send_status_line after print\n";
}
Any ideas?
Using perl 5.8 on A sun box
% uname -a
SunOS odin 5.6 Generic_105181-35 sun4u sparc SUNW,Ultra-4
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.