Skip Menu |
 

This queue is for tickets about the Win32-Internet CPAN distribution.

Report information
The Basics
Id: 61810
Status: new
Priority: 0/
Queue: Win32-Internet

People
Owner: Nobody in particular
Requestors: patcat88 [...] snet.net
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 0.084
Fixed in: (no value)



Subject: SetOption wont accept INTERNET_OPTION_MAX_CONNS_PER_SERVER 73
Download (untitled) / with headers
text/plain 1.1k
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. Show quoted text
__________________________________________________________ #!/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
_____________________________________________________


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.