if (stash != PL_defstash) { /* not the main stash */
/* We only have to check for four names here: EXPORT, ISA, OVERLOAD
and VERSION. All the others apply only to the main stash. */
- if (len > 1) {
+ if (len > 2) {
const char * const name2 = name + 1;
switch (*name) {
case 'E':
#endif
goto magicalize;
- case '$': /* $$ */
- SvREADONLY_on(GvSVn(gv));
- goto magicalize;
case '!': /* $! */
GvMULTI_on(gv);
/* If %! has been used, automatically load Errno.pm. */
case '>': /* $> */
case '\\': /* $\ */
case '/': /* $/ */
+ case '$': /* $$ */
case '\001': /* $^A */
case '\003': /* $^C */
case '\004': /* $^D */