[perl #127069] [BUG] Simple loop dies

[Larry Wall via RT]

Dup of #127013.

Tests for this particular ticket in a8bbde8fa06d5d55bc6d5879a0c84a669d7f0481