Internals::SvREADONLY($your_scalar, 1);