p4raw-id: //depot/win32/perl@285
case '\'':
sawampersand = TRUE;
SvREADONLY_on(sv);
- sv_magic(sv, 0, 0, name, 1);
- break;
++ /* FALL THROUGH */
default:
sv_magic(sv, 0, 0, name, 1);
- break;
}
DEBUG_L(PerlIO_printf(PerlIO_stderr(),
"find_threadsv: new SV %p for $%s%c\n",