else if (v == &PL_vtbl_substr) s = "substr";
else if (v == &PL_vtbl_vec) s = "vec";
else if (v == &PL_vtbl_pos) s = "pos";
- else if (v == &PL_vtbl_bm) s = "bm";
- else if (v == &PL_vtbl_fm) s = "fm";
else if (v == &PL_vtbl_uvar) s = "uvar";
else if (v == &PL_vtbl_defelem) s = "defelem";
#ifdef USE_LOCALE_COLLATE
CUR = 5
LEN = \d+
MAGIC = $ADDR
- MG_VIRTUAL = &PL_vtbl_bm
+ MG_VIRTUAL = &PL_vtbl_regexp
MG_TYPE = PERL_MAGIC_bm\\(B\\)
MG_LEN = 256
MG_PTR = $ADDR "(?:\\\\\d){256}"
CUR = 5
LEN = \d+
MAGIC = $ADDR
- MG_VIRTUAL = &PL_vtbl_bm
+ MG_VIRTUAL = &PL_vtbl_regexp
MG_TYPE = PERL_MAGIC_bm\\(B\\)
MG_LEN = 256
MG_PTR = $ADDR "(?:\\\\\d){256}"
EOH
-print $h @aliases, "\n";;
+print $h (sort @aliases), "\n";
print $h "#define PL_vtbl_$_ PL_magic_vtables[want_vtbl_$_]\n"
foreach sort @vtable_names;
case PERL_MAGIC_overload_table:
vtable = &PL_vtbl_ovrld;
break;
- case PERL_MAGIC_bm:
- vtable = &PL_vtbl_bm;
- break;
case PERL_MAGIC_regdata:
vtable = &PL_vtbl_regdata;
break;
case PERL_MAGIC_env:
vtable = &PL_vtbl_env;
break;
- case PERL_MAGIC_fm:
- vtable = &PL_vtbl_fm;
- break;
case PERL_MAGIC_envelem:
vtable = &PL_vtbl_envelem;
break;
case PERL_MAGIC_nkeys:
vtable = &PL_vtbl_nkeys;
break;
- case PERL_MAGIC_dbfile:
- vtable = NULL;
- break;
case PERL_MAGIC_dbline:
vtable = &PL_vtbl_dbline;
break;
case PERL_MAGIC_tiedscalar:
vtable = &PL_vtbl_packelem;
break;
+ case PERL_MAGIC_fm:
+ case PERL_MAGIC_bm:
case PERL_MAGIC_qr:
vtable = &PL_vtbl_regexp;
break;
case PERL_MAGIC_vec:
vtable = &PL_vtbl_vec;
break;
+ case PERL_MAGIC_dbfile:
case PERL_MAGIC_sig:
case PERL_MAGIC_arylen_p:
case PERL_MAGIC_rhash: