Work on perl_pos bug: t-1