github-repos/wget
1
0
Fork 0
mirror of https://github.com/mirror/wget.git synced 2024-12-26 21:00:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix perl warnings in tests

Browse Source 
* 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/FTPServer.pm
View File

@ -589,7 +589,7 @@ sub new
foreach my $file (keys %{$self->{_input}})
{
my $ref = \$self->{_input}{$file}{content};
$$ref =~ s/{{port}}/$self->sockport/eg;
$$ref =~ s/\Q{{port}}/$self->sockport/eg;
}
return $self;

2
tests/FTPTest.pm
View File

@ -53,7 +53,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;
}

2
tests/HTTPServer.pm
View File

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

2
tests/HTTPTest.pm
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;
}

2
tests/Test-proxied-https-auth-keepalive.px
View File

@ -153,7 +153,7 @@ my $cmdline = $WgetTest::WGETPATH . " --user=fiddle-dee-dee"
. " --password=Dodgson -e https_proxy=localhost:{{port}}"
. " --no-check-certificate"
. " https://no.such.domain/needs-auth.txt";
$cmdline =~ s/{{port}}/$SOCKET->sockport()/e;
$cmdline =~ s/\Q{{port}}/$SOCKET->sockport()/e;
if (defined $srcdir) {
$VALGRIND_SUPP_FILE = $srcdir . '/valgrind-suppressions-ssl';

2
tests/Test-proxied-https-auth.px
View File

@ -152,7 +152,7 @@ my $cmdline = $WgetTest::WGETPATH . " --user=fiddle-dee-dee"
. " --password=Dodgson -e https_proxy=localhost:{{port}}"
. " --no-check-certificate"
. " https://no.such.domain/needs-auth.txt";
$cmdline =~ s/{{port}}/$SOCKET->sockport()/e;
$cmdline =~ s/\Q{{port}}/$SOCKET->sockport()/e;
if (defined $srcdir) {
$VALGRIND_SUPP_FILE = $srcdir . '/valgrind-suppressions-ssl';