use strict;
use warnings;

test1();

sub test1 {
    while () {
        my $v = 0;
        next if $v = get_true();
    }
}
sub get_true { 1 }