Work on perl_pos bug: t-1
Fixed perl_pos bug: t+