Fix new test added by #34198, which failed on Win32

p4raw-id: //depot/perl@34228

diff --git a/t/op/local.t b/t/op/local.t
index 011e543..5bf56af 100755 (executable)
--- a/t/op/local.t
+++ b/t/op/local.t
@@ -454,7 +454,7 @@ sub f { ok(0 == $[); }
 like( runperl(stderr => 1,
               prog => 'use constant foo => q(a);' .
                       'index(q(a), foo);' .
-                      'local *g=${::}{foo};print "ok";'), "ok", "[perl #52740]");
+                      'local *g=${::}{foo};print q(ok);'), "ok", "[perl #52740]");
 
 # Keep this test last, as it can SEGV
 {