inline the bits we need from Perl_newSVpvn_flags, speed++