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

[MatzeA]

Servus,

sofern ich den code richtig verstanden habe ist es wohl Dein Fehler.
Der Response vom Proxy wird immer erfolgreich sein, auch wenn das eigentliche Ziel nicht erreichbar ist.

Auch wenn nur eine Fehlerseite kommt.
Du musst den Inhalt prüfen.

Gruss Matze