##
PREINIT:
int i;
PPCODE:
f();
##
##
PPCODE:
{
int i;
f();
}
##
##
say lengths1(substr("abc", 0, 1)); # 0
##
##
say lengths1("abc"); # 16
##
##
$_="\x{A0}"; say lengths1($_), "=", length($_); # 1=1
$_="\x{A0}\x{2660}"; chop; say lengths1($_), "=", length($_); # 2=1
##
##
say lengths1(456), "=", length(456); # 0=3