Bug in LWP::UserAgent und PERL v5 ?

[Erwin]

Hallo Forumsgemeinde und PERL Freunde,

die folgende sub gibt mir auf PERL v5 eine 1 zurück, auch wenn die Ziel URL nicht erreichbar ist. Mein Fehler oder ein bug?

Viele Grüße, Erwin

=sub

Proxyserver, Erreichbarkeit einer URL ueber proxy testen

LWP::UserAgent

$func{'proxy'} = sub{
 my ($proxy, $url) = @_;
 my $ua = LWP::UserAgent->new();
 $ua->proxy(http => $proxy);
 my $request = HTTP::Request->new('GET' => $url);

# send request
 my $response = $ua->request($request);

# check the outcome
 if ($response->is_success) { return 1 }
 else { return 0 }
};

=cut