From: Steve Hay <SteveHay@planit.com>
Date: Tue, 26 Aug 2008 13:29:08 +0000 (+0000)
Subject: Fix new test added by #34198, which failed on Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=45f2a18c3b37907ac3044fb3fe75b6bb198022a5;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
 {