&_q needs to *globally* escape ' and \ in its substitution.

p4raw-id: //depot/perl@23883

1 files changed, 2 insertions, 2 deletions

diff --git a/t/test.pl b/t/test.pl
index 36a12c32f9..7550b490e5 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -101,8 +101,8 @@ sub _q {
     my $x = shift;
     return 'undef' unless defined $x;
     my $q = $x;
-    $q =~ s/\\/\\\\/;
-    $q =~ s/'/\\'/;
+    $q =~ s/\\/\\\\/g;
+    $q =~ s/'/\\'/g;
     return "'$q'";
 }