diff options
| author | Steve Hay <SteveHay@planit.com> | 2008-08-26 13:29:08 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2008-08-26 13:29:08 +0000 |
| commit | 45f2a18c3b37907ac3044fb3fe75b6bb198022a5 (patch) | |
| tree | a3e2a3568803b011fe57dd597a1c2c4a23fa0905 /t | |
| parent | fbd6575c915bb6c2521a5086fde2a0e1607c6f01 (diff) | |
| download | perl-45f2a18c3b37907ac3044fb3fe75b6bb198022a5.tar.gz | |
Fix new test added by #34198, which failed on Win32
p4raw-id: //depot/perl@34228
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/local.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/local.t b/t/op/local.t index 011e543d1b..5bf56af36a 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 { |