[rt.cpan.org #61810] SetOption wont accept INTERNET_OPTION_MAX_CONNS_PER_SERVER 73

Fri Oct 01 05:45:48 2010: Request 61810 was acted upon.
Transaction: Ticket created by [email protected]
       Queue: Win32-Internet
     Subject: SetOption wont accept INTERNET_OPTION_MAX_CONNS_PER_SERVER 73
   Broken in: 0.084
    Severity: Normal
       Owner: Nobody
  Requestors: [email protected]
      Status: new
 Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=61810 >


Constant INTERNET_OPTION_MAX_CONNS_PER_SERVER isn't defined. Trying to
use the numeric version of INTERNET_OPTION_MAX_CONNS_PER_SERVER, which
is 73, also never works. Perl 5.10, Win32::Internet 0.084, Windows XP SP3.
__________________________________________________________
#!/usr/bin/perl -w

use Win32::Internet;
$c = new Win32::Internet();

$, = ' , ';
print 'INTERNET_OPTION_CONNECT_TIMEOUT is
'.INTERNET_OPTION_CONNECT_TIMEOUT."\n";
print 'INTERNET_OPTION_MAX_CONNS_PER_SERVER is
'.INTERNET_OPTION_MAX_CONNS_PER_SERVER."\n";
#INTERNET_OPTION_MAX_CONNS_PER_SERVER is 73
print (($c->SetOption(73, 10)?'t':'f')."\n");
print $c->Error(),"\n";
#INTERNET_OPTION_CONNECT_TIMEOUT is 2
print (($c->SetOption(2, 1000)?'t':'f')."\n");
print (($c->SetOption(INTERNET_OPTION_CONNECT_TIMEOUT, 1000)?'t':'f')."\n");
__________________________________________________

results
_____________________________________________________
INTERNET_OPTION_CONNECT_TIMEOUT is 2
INTERNET_OPTION_MAX_CONNS_PER_SERVER is INTERNET_OPTION_MAX_CONNS_PER_SERVER
f
12010 , The length is incorrect for the option type , 
t
t
_____________________________________________________