Added programmer-level condition variables via "condpair" magic.

[perl5.git] / sv.c

diff --git a/sv.c b/sv.c
index 2a25a30..52e9b26 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -2086,6 +2086,11 @@ I32 namlen;
     case 'l':
        mg->mg_virtual = &vtbl_dbline;
        break;
+#ifdef USE_THREADS
+    case 'm':
+       mg->mg_virtual = &vtbl_mutex;
+       break;
+#endif /* USE_THREADS */
     case 'P':
        mg->mg_virtual = &vtbl_pack;
        break;