Re: Bug (easily fixable) in Apache::Server

[Richard L. Goerwitz]

The mod_perl-1.24_01 ./src/modules/perl/Server.xs file is using a
short int, which leads to ports between 32768 and 65535 (inclusive)
turning up in Perl as negative numbers -

short
port(server, ...)
    Apache::Server      server

    CODE:
    RETVAL = server->port;

    if(items > 1)
        server->port = (short)SvIV(ST(1));

    OUTPUT:
    RETVAL

-- 
Richard Goerwitz                                [EMAIL PROTECTED]