Fix regression from 3732cdcc (#2477)

This commit is contained in:
Maxime Besson 2021-07-09 11:48:38 +02:00
parent 959a4349a2
commit 2816586afe

View File

@ -156,7 +156,7 @@ sub controlUrl {
}
# Unprotected hosts
unless ( $tmp =~ URIRE ) {
if ( $tmp and ( $tmp !~ URIRE ) ) {
$self->userLogger->error("Bad URL $tmp");
delete $req->{urldc};
return PE_BADURL;