Miscellany

/* xchat-2.8.8/plugins/perl/perl.c:501 */
while (last_index >= 0
		 && (word[last_index] == NULL || word[last_index][0] == 0)) {
	last_index--;
}

for (count = 1; count <= last_index; count++) {
	if (word[count] == NULL) {
		av_push (wd, &PL_sv_undef);
	} else if (word[count][0] == 0) {
		av_push (wd, newSVpvn ("",0));	
	} else {
		temp = newSVpv (word[count], 0);
		SvUTF8_on (temp);
		av_push (wd, temp);
	}
}