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

[Steve Hay]

Change 34228 by [EMAIL PROTECTED] on 2008/08/26 13:29:08

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

Affected files ...

... //depot/perl/t/op/local.t#40 edit

Differences ...

==== //depot/perl/t/op/local.t#40 (xtext) ====
Index: perl/t/op/local.t
--- perl/t/op/local.t#39~34198~ 2008-08-11 05:29:46.000000000 -0700
+++ perl/t/op/local.t   2008-08-26 06:29:08.000000000 -0700
@@ -454,7 +454,7 @@
 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
 {
End of Patch.