Select Code to Download

#!/usr/bin/perl

...
List return value of for contains 0 true elements
List return value of for contains 0 elements of non-zero length
List return value of for equals ['']

PP(pp_leaveloop)
{
...
    
    return NORMAL;
}

perl -Dt -e '$x = do {for (1) {}}'

...
(-e:1)  gvsv(main::x)
(-e:1)  sassign
(-e:1)  leave