Fix regex to match original behaviour

This commit is contained in:
Přemysl Eric Janouch 2017-06-07 06:00:33 +02:00
parent b09c0c23ee
commit 1ec8274103
Signed by: p
GPG Key ID: B715679E3A361BE6

View File

@ -134,7 +134,7 @@ for my $domain (@domains) {
my ($challenge) = grep { $_->{type} eq 'http-01' } my ($challenge) = grep { $_->{type} eq 'http-01' }
@{$json->decode($result)->{challenges}}; @{$json->decode($result)->{challenges}};
my $token = $challenge->{token} =~ s/[^A-Za-z0-9_-]/_/r; my $token = $challenge->{token} =~ s/[^A-Za-z0-9_-]/_/gr;
my $key_auth = "$token.$thumbprint"; my $key_auth = "$token.$thumbprint";
my $known_path = "$acme_dir/$token"; my $known_path = "$acme_dir/$token";