tests: fix shell quoting on native Windows Perl

Cherry-picked from #14949
Closes #15105

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