Fix perl warnings in tests

* tests/FTPServer.pm: Escape '{' in RE to fix warnings
* tests/FTPTest.pm: Likewise
* tests/HTTPServer.pm: Likewise
* tests/HTTPTest.pm: Likewise
* tests/Test-proxied-https-auth-keepalive.px: Likewise
* tests/Test-proxied-https-auth.px: Likewise
Escape '{' in RE to fix warnings:
Unescaped left brace in regex is deprecated, passed through in regex;
marked by <-- HERE in m/{{ <-- HERE port}}/
This commit is contained in:
Anton Yuzhaninov
2017-04-05 19:06:42 +03:00
committed by Tim Rühsen
parent f381831d88
commit 7ffe93cabb
6 changed files with 6 additions and 6 deletions

View File

@@ -47,7 +47,7 @@ sub _substitute_port
{
my $self = shift;
my $ret = shift;
$ret =~ s/{{port}}/$self->{_server}->sockport/eg;
$ret =~ s/\Q{{port}}/$self->{_server}->sockport/eg;
return $ret;
}