luo980/curl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tests: fix shell quoting on native Windows Perl

Browse Source 
Cherry-picked from #14949
Closes #15105
This commit is contained in:
Viktor Szakats 2024-09-20 15:10:42 +02:00
parent 9c1ab7fa4a
commit f88fb1c83e
No known key found for this signature in database
GPG Key ID: B5ABD165E2AEF201
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tests/testutil.pm
View File

@ -211,10 +211,15 @@ sub runclientoutput {
# #
sub shell_quote { sub shell_quote {
my ($s)=@_; my ($s)=@_;
if($s !~ m/^[-+=.,_\/:a-zA-Z0-9]+$/) { if($^O eq 'MSWin32') {
# string contains a "dangerous" character--quote it $s = '"' . $s . '"';
$s =~ s/'/'"'"'/g; }
$s = "'" . $s . "'"; else {
if($s !~ m/^[-+=.,_\/:a-zA-Z0-9]+$/) {
# string contains a "dangerous" character--quote it
$s =~ s/'/'"'"'/g;
$s = "'" . $s . "'";
}
} }
return $s; return $s;
} }