Est-ce que LWP :: UserAgent n'est pas compatible avec les threads?

Question

J'en 40 ou donc les threads avec la sous-routine suivante:

my $app = shift; 
my $ua = LWP::UserAgent->new(); 
$ua->timeout(5); 
my $response = $ua->get($$app{'watch_url'}); 
my $new_md5; 
if ($response->is_success()) { 
    $new_md5 = md5_hex($response->content()); 
} 
return ($$app{'short_name'}, $$app{'watch_md5'}, $new_md5); 

décharges de base ensuivre environ 3/4 du temps. LWP et LWP :: UserAgent sont de purs Perl, donc je suis pris au dépourvu. LWP :: UserAgent n'est-il pas thread-safe?

Mise à jour:

Voici une version minimale de reproduire le problème:

use strict; 
use warnings; 
use threads; 
use LWP::UserAgent; 

sub check_app { 
    my $ua = LWP::UserAgent->new(); 
    $ua->timeout(5); 
    $ua->get('http://www.flatdoc.com/?' . rand(10)); 
} 

my @threads; 
for (my $i = 0; $i < 40; $i++) { 
    my $thread = threads->create(\&check_app); 
    push(@threads, $thread); 
} 
foreach (@threads) { 
    $_->join(); 
} 

Answer 1

non-thread-safe pur code Perl ne provoque pas une erreur de segmentation (en fait, pas de code pur Perl doit provoquer une erreur de segmentation). Un bug dans Perl provoque un segfault. Et les threads dans Perl sont historiquement très buggés, mais ils se sont beaucoup améliorés.

Votre code fonctionne très bien dans la version 5.10.1, et HTTP :: Lite n'a probablement aucun effet sur les bugs que vous avez rencontrés. Vous avez probablement besoin d'utiliser une version plus récente de Perl. Le plus vieux et plus proche de Redhat vous obtenez, les fils les moins stables sont. Si vous allez utiliser des threads, utilisez le dernier Perl que vous pouvez mettre la main sur. En tant qu'alternative aux threads, vous pouvez utiliser quelque chose comme Parallel::ForkManager, LWP::Parallel ou même le module étonnant forks qui émule les threads à l'aide d'une fourche.