Apache/1.3.22 Ben-SSL/1.47 (Unix) DAV/1.0.3 mod_perl/1.26
The function
getservbyport
causes Apache to segfault
when run from a terminal or as a normal cgi script it works fine
when run with mod_perl it crashes.
sample cgi is the part commented out.
#!/usr/bin/perl
my $proto = 'tcp';
my $proto = 'tcp';
my $name = getservbyport($port, $proto);
#print <<EOF;
#Content-type: text/html
#
#<html><body bgcolor="#ffffff">
#$port, $name
#</body>
#</html>
#EOF
use Apache;
my $r = Apache->request;
my $html = q|<html>
<body bgcolor="#ffffff">
$port, $name
</body>
</html>
|;
$_ = length($html);
$r->status(200);
$r->content_type("text/html");
$r->header_out("Content-length","$_");
$r->send_http_header;
$r->print ($html);
return 200; # HTTP_OK
