diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-05-14 09:41:18 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-06-11 10:39:31 +0200 |
| commit | b76b0bf9b926e6a5504a59a935a232eb91d44437 (patch) | |
| tree | 455cc52b96e804f581ded5f59fdc5d5d3fadf4cb /sv.c | |
| parent | b2e9fc6f32369f6de4f37da887e1e7c4a48dd506 (diff) | |
| download | perl-b76b0bf9b926e6a5504a59a935a232eb91d44437.tar.gz | |
Replace references to PL_vtbl_{bm,fm} in the code with PL_vtbl_regexp.
Also, in Perl_sv_magic() merge the case for PERL_MAGIC_dbfile with the others
that return a NULL vtable.
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 12 |
1 files changed, 3 insertions, 9 deletions
@@ -5292,9 +5292,6 @@ Perl_sv_magic(pTHX_ register SV *const sv, SV *const obj, const int how, 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; @@ -5304,9 +5301,6 @@ Perl_sv_magic(pTHX_ register SV *const sv, SV *const obj, const int how, 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; @@ -5322,9 +5316,6 @@ Perl_sv_magic(pTHX_ register SV *const sv, SV *const obj, const int how, 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; @@ -5340,6 +5331,8 @@ Perl_sv_magic(pTHX_ register SV *const sv, SV *const obj, const int how, 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; @@ -5357,6 +5350,7 @@ Perl_sv_magic(pTHX_ register SV *const sv, SV *const obj, const int how, 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: |