Remove PERL_MAGIC_mutex

p4raw-id: //depot/perl@31412

diff --git a/dump.c b/dump.c
index a83e17f..212f720 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -1170,7 +1170,6 @@ static const struct { const char type; const char *name; } magic_names[] = {
        { PERL_MAGIC_isaelem,        "isaelem(i)" },
        { PERL_MAGIC_nkeys,          "nkeys(k)" },
        { PERL_MAGIC_dbline,         "dbline(l)" },
-       { PERL_MAGIC_mutex,          "mutex(m)" },
        { PERL_MAGIC_shared_scalar,  "shared_scalar(n)" },
        { PERL_MAGIC_collxfrm,       "collxfrm(o)" },
        { PERL_MAGIC_tiedelem,       "tiedelem(p)" },

diff --git a/perl.h b/perl.h
index 525eca2..b989f3e 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -3729,7 +3729,6 @@ Gid_t getegid (void);
 #define PERL_MAGIC_nkeys         'k' /* scalar(keys()) lvalue */
 #define PERL_MAGIC_dbfile        'L' /* Debugger %_<filename */
 #define PERL_MAGIC_dbline        'l' /* Debugger %_<filename element */
-#define PERL_MAGIC_mutex         'm' /* for lock op */
 #define PERL_MAGIC_shared        'N' /* Shared between threads */
 #define PERL_MAGIC_shared_scalar  'n' /* Shared between threads */
 #define PERL_MAGIC_collxfrm      'o' /* Locale transformation */

diff --git a/pod/perlguts.pod b/pod/perlguts.pod
index 2ea8bdf..7a7a5a5 100644 (file)
--- a/pod/perlguts.pod
+++ b/pod/perlguts.pod
@@ -1045,7 +1045,6 @@ The current kinds of Magic Virtual Tables are:
     k  PERL_MAGIC_nkeys          vtbl_nkeys      scalar(keys()) lvalue
     L  PERL_MAGIC_dbfile         (none)          Debugger %_<filename
     l  PERL_MAGIC_dbline         vtbl_dbline     Debugger %_<filename element
-    m  PERL_MAGIC_mutex          vtbl_mutex      ???
     o  PERL_MAGIC_collxfrm       vtbl_collxfrm   Locale collate transformation
     P  PERL_MAGIC_tied           vtbl_pack       Tied array or hash
     p  PERL_MAGIC_tiedelem       vtbl_packelem   Tied array or hash element