This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix new test added by #34198, which failed on Win32
authorSteve Hay <SteveHay@planit.com>
Tue, 26 Aug 2008 13:29:08 +0000 (13:29 +0000)
committerSteve Hay <SteveHay@planit.com>
Tue, 26 Aug 2008 13:29:08 +0000 (13:29 +0000)
p4raw-id: //depot/perl@34228

t/op/local.t

index 011e543..5bf56af 100755 (executable)
@@ -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
 {