Add ‘immortal’ pad name intrp vars

These will replace the current use of &PL_sv_undef and &PL_sv_no as
pad names.

diff --git a/embedvar.h b/embedvar.h
index 2a3ebdc..712c259 100644 (file)
--- a/embedvar.h
+++ b/embedvar.h
@@ -230,6 +230,8 @@
 #define PL_pad_reset_pending   (vTHX->Ipad_reset_pending)
 #define PL_padix               (vTHX->Ipadix)
 #define PL_padix_floor         (vTHX->Ipadix_floor)
+#define PL_padname_const       (vTHX->Ipadname_const)
+#define PL_padname_undef       (vTHX->Ipadname_undef)
 #define PL_parser              (vTHX->Iparser)
 #define PL_patchlevel          (vTHX->Ipatchlevel)
 #define PL_peepp               (vTHX->Ipeepp)

diff --git a/intrpvar.h b/intrpvar.h
index 56bb5c4..6397eb6 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -146,6 +146,8 @@ C<&PL_sv_yes>.
 PERLVAR(I, sv_undef,   SV)
 PERLVAR(I, sv_no,      SV)
 PERLVAR(I, sv_yes,     SV)
+PERLVAR(I, padname_undef,      PADNAME)
+PERLVAR(I, padname_const,      PADNAME)
 PERLVAR(I, Sv,         SV *)           /* used to hold temporary values */
 
 PERLVAR(I, parser,     yy_parser *)    /* current parser state */