I sent out this email a while ago and got no replies, so I'm trying one 
more time:

After updating to Mac OS 10.2, I've noticed that my perl file uploads 
(using HTTP::Request::Common) have slowed down by a lot.  Using 
tcpdump, I see that there is a long delay before the first packet is 
sent.  Playing around with file sizes, I found a very strong file-size 
dependence:

File Size       Time till first packet
15M             4 sec
17M             76 sec
19M             180 sec
24M             555 sec

This is the test code:

#!/usr/bin/perl
use HTTP::Request::Common;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new();
$ua->timeout(60*10);    
$response = $ua->request(POST 'http://my_url_....',
                        Content_type => 'form-data',
                        Content => [  upload_file => ['my_big_file...'] ].
                );
print $response->content;


That 24M file, which used to take a minute or two, now takes over nine 
minutes before the upload even starts.  I just tried updating my perl 
installation to 5.8.0, but that didn't help.  At this point, I don't 
know if this is a perl problem or not.

--
g

Reply via email to