Abolish PL_vtbl_sig. It's been all 0s since it was added in 5.0 alpha 2.

Magic with a NULL vtable is equivalent to magic with a vtable of all 0s.
On CPAN, only Apache::Peek's code for 5.005 is referencing it.

diff --git a/XSUB.h b/XSUB.h
index a2cfccd8db2d9c78f759969f8ff22c0115131c05..5b5e3c81d237e8b939872d61958578807d959303 100644 (file)
--- a/XSUB.h
+++ b/XSUB.h
@@ -367,7 +367,6 @@ Rethrows a previously caught exception.  See L<perlguts/"Exception Handling">.
 #  define VTBL_sv              &PL_vtbl_sv
 #  define VTBL_env             &PL_vtbl_env
 #  define VTBL_envelem         &PL_vtbl_envelem
-#  define VTBL_sig             &PL_vtbl_sig
 #  define VTBL_sigelem         &PL_vtbl_sigelem
 #  define VTBL_pack            &PL_vtbl_pack
 #  define VTBL_packelem                &PL_vtbl_packelem

diff --git a/dump.c b/dump.c
index 273957a8c08ec7a1c3989c651c689e239b282a1d..66b6da5fbd379e01958d22a5b38c665c6e4907a0 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -1294,7 +1294,6 @@ Perl_do_magic_dump(pTHX_ I32 level, PerlIO *file, const MAGIC *mg, I32 nest, I32
            if      (v == &PL_vtbl_sv)         s = "sv";
             else if (v == &PL_vtbl_env)        s = "env";
             else if (v == &PL_vtbl_envelem)    s = "envelem";
-            else if (v == &PL_vtbl_sig)        s = "sig";
 #ifndef PERL_MICRO
             else if (v == &PL_vtbl_sigelem)    s = "sigelem";
 #endif

diff --git a/globvar.sym b/globvar.sym
index 10ddaaf90c7fa60c6004246bf265cb472c4cfad5..d3e3b98650a25298b264e4493f31e11113affa79 100644 (file)
--- a/globvar.sym
+++ b/globvar.sym
@@ -65,7 +65,6 @@ vtbl_pos
 vtbl_regdata
 vtbl_regdatum
 vtbl_regexp
-vtbl_sig
 vtbl_sigelem
 vtbl_substr
 vtbl_sv

diff --git a/perl.h b/perl.h
index b9462593a033488cbfd4ff982cf035ef1a7d3b41..e0adc105def8730a7ecc157b5443f74fdbfd8acf 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -4807,7 +4807,6 @@ enum {            /* pass one of these to get_vtbl */
     want_vtbl_sv,
     want_vtbl_env,
     want_vtbl_envelem,
-    want_vtbl_sig,
     want_vtbl_sigelem,
     want_vtbl_pack,
     want_vtbl_packelem,
@@ -5173,18 +5172,6 @@ MGVTBL_SET(
     0
 );
 
-MGVTBL_SET(
-    PL_vtbl_sig,
-    0,
-    0,
-    0,
-    0,
-    0,
-    0,
-    0,
-    0
-);
-
 #ifndef PERL_MICRO
 MGVTBL_SET(
     PL_vtbl_sigelem,

diff --git a/pod/perlguts.pod b/pod/perlguts.pod
index e77d6b8fea29cb8a884c8310a9b43ab55051b074..c5ba48e74e260b614b3f1e718d0878132b5d9a34 100644 (file)
--- a/pod/perlguts.pod
+++ b/pod/perlguts.pod
@@ -1060,7 +1060,7 @@ The current kinds of Magic Virtual Tables are:
     p  PERL_MAGIC_tiedelem       vtbl_packelem   Tied array or hash element
     q  PERL_MAGIC_tiedscalar     vtbl_packelem   Tied scalar or handle
     r  PERL_MAGIC_qr             vtbl_qr         precompiled qr// regex
-    S  PERL_MAGIC_sig            vtbl_sig        %SIG hash
+    S  PERL_MAGIC_sig            (none)          %SIG hash
     s  PERL_MAGIC_sigelem        vtbl_sigelem    %SIG hash element
     t  PERL_MAGIC_taint          vtbl_taint      Taintedness
     U  PERL_MAGIC_uvar           vtbl_uvar       Available for use by extensions

diff --git a/sv.c b/sv.c
index 0e182136db31fe8ab11701edcbb1228c9331fc13..4b63ac8c8f5a3a0272cf2e1ea9ea692f39a56a53 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -5343,9 +5343,6 @@ Perl_sv_magic(pTHX_ register SV *const sv, SV *const obj, const int how,
     case PERL_MAGIC_qr:
        vtable = &PL_vtbl_regexp;
        break;
-    case PERL_MAGIC_sig:
-       vtable = &PL_vtbl_sig;
-       break;
 #ifndef PERL_MICRO
     case PERL_MAGIC_sigelem:
        vtable = &PL_vtbl_sigelem;
@@ -5360,6 +5357,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_sig:
     case PERL_MAGIC_arylen_p:
     case PERL_MAGIC_rhash:
     case PERL_MAGIC_symtab:

diff --git a/util.c b/util.c
index ee56089a9004e82253c4f518b2e08fa023daec0d..7355d0330eb0b517eb10eafad4e4a0d1bb9db824 100644 (file)
--- a/util.c
+++ b/util.c
@@ -3749,9 +3749,6 @@ Perl_get_vtbl(pTHX_ int vtbl_id)
     case want_vtbl_envelem:
        result = &PL_vtbl_envelem;
        break;
-    case want_vtbl_sig:
-       result = &PL_vtbl_sig;
-       break;
 #ifndef PERL_MICRO
     case want_vtbl_sigelem:
        result = &PL_vtbl_sigelem;