Taint the shell from the getpw*.

[p5sagit/p5-mst-13.2.git] / objXSUB.h

diff --git a/objXSUB.h b/objXSUB.h
index 4cf78b9..68c31b0 100644 (file)
--- a/objXSUB.h
+++ b/objXSUB.h
@@ -229,6 +229,14 @@
 #undef  fprintf_nocontext
 #define fprintf_nocontext      Perl_fprintf_nocontext
 #endif
+#undef  Perl_cv_const_sv
+#define Perl_cv_const_sv       pPerl->Perl_cv_const_sv
+#undef  cv_const_sv
+#define cv_const_sv            Perl_cv_const_sv
+#undef  Perl_cv_undef
+#define Perl_cv_undef          pPerl->Perl_cv_undef
+#undef  cv_undef
+#define cv_undef               Perl_cv_undef
 #undef  Perl_cx_dump
 #define Perl_cx_dump           pPerl->Perl_cx_dump
 #undef  cx_dump
@@ -1065,6 +1073,10 @@
 #define Perl_newSViv           pPerl->Perl_newSViv
 #undef  newSViv
 #define newSViv                        Perl_newSViv
+#undef  Perl_newSVuv
+#define Perl_newSVuv           pPerl->Perl_newSVuv
+#undef  newSVuv
+#define newSVuv                        Perl_newSVuv
 #undef  Perl_newSVnv
 #define Perl_newSVnv           pPerl->Perl_newSVnv
 #undef  newSVnv