Nicholas Clark wrote:
> On Tue, Aug 26, 2008 at 12:30:25PM +0100, Steve Hay wrote:
>> Nicholas Clark wrote:
>>> On Tue, Aug 26, 2008 at 04:39:00AM +0100, Steve Hay wrote:
>>>
>>>> op/local.t..................................................FAILED
>>>> 121
>>>
>>> I'm confused as to why that fails. Could you send the long output?
>>
>> It's not very long, but here it is:
>>
>> [...]
>> ok 120
>> # Failed at op/local.t line 454
>> # got ''
>> # expected /ok/
>> not ok 121 - [perl \#52740]
>> ok 122 - Localised *@
>> [...]
>
> Mmm. What happens if you run its little test program from the command
> line:
>
> $ ./perl -Ilib
> use constant foo => q(a);
> index(q(a), foo);
> local *g=${::}{foo};print "ok";
> __END__
> ok
>
> And does it work better if that "ok" becomes "ok\n" ?
It outputs "ok".
If I change "ok" to "ok\n" then it outputs "ok
".
