curl/curl
1
1
Fork 0
mirror of https://github.com/curl/curl.git synced 2025-09-15 08:32:41 +03:00
Code Issues Packages Projects Releases Wiki Activity

testutil: allow multiple %-operators on the same line

Browse Source 
Closes #11303
This commit is contained in:
Daniel Stenberg 2023-06-12 08:59:11 +02:00
parent aaba783d33
commit 1899899bb7
No known key found for this signature in database
GPG Key ID: 5CC908FDB71E12C2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/testutil.pm
View File

@ -98,7 +98,7 @@ sub subbase64 {
my ($thing) = @_; my ($thing) = @_;
# cut out the base64 piece # cut out the base64 piece
if($$thing =~ s/%b64\[(.*)\]b64%/%%B64%%/i) { while($$thing =~ s/%b64\[(.*?)\]b64%/%%B64%%/i) {
my $d = $1; my $d = $1;
# encode %NN characters # encode %NN characters
$d =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg; $d =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg;
@ -107,13 +107,13 @@ sub subbase64 {
$$thing =~ s/%%B64%%/$enc/; $$thing =~ s/%%B64%%/$enc/;
} }
# hex decode # hex decode
if($$thing =~ s/%hex\[(.*)\]hex%/%%HEX%%/i) { while($$thing =~ s/%hex\[(.*?)\]hex%/%%HEX%%/i) {
# decode %NN characters # decode %NN characters
my $d = $1; my $d = $1;
$d =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg; $d =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg;
$$thing =~ s/%%HEX%%/$d/; $$thing =~ s/%%HEX%%/$d/;
} }
if($$thing =~ s/%repeat\[(\d+) x (.*)\]%/%%REPEAT%%/i) { while($$thing =~ s/%repeat\[(\d+) x (.*?)\]%/%%REPEAT%%/i) {
# decode %NN characters # decode %NN characters
my ($d, $n) = ($2, $1); my ($d, $n) = ($2, $1);
$d =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg; $d =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg;