[perl #122445] use magic on $DB::single etc to avoid overload issues

[perl5.git] / embedvar.h

diff --git a/embedvar.h b/embedvar.h
index adc207d..2659d02 100644 (file)
--- a/embedvar.h
+++ b/embedvar.h
@@ -43,6 +43,7 @@
 #define PL_AboveLatin1         (vTHX->IAboveLatin1)
 #define PL_Argv                        (vTHX->IArgv)
 #define PL_Cmd                 (vTHX->ICmd)
+#define PL_DBcontrol           (vTHX->IDBcontrol)
 #define PL_DBcv                        (vTHX->IDBcv)
 #define PL_DBgv                        (vTHX->IDBgv)
 #define PL_DBline              (vTHX->IDBline)