This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add dVAR;s to the functions created in change 31970.
authorNicholas Clark <nick@ccl4.org>
Tue, 16 Oct 2007 07:51:36 +0000 (07:51 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 16 Oct 2007 07:51:36 +0000 (07:51 +0000)
p4raw-id: //depot/perl@32109

perl.c

diff --git a/perl.c b/perl.c
index 26dcb6a..bb35671 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -187,6 +187,7 @@ S_init_tls_and_interp(PerlInterpreter *my_perl)
 void
 Perl_sys_init(int* argc, char*** argv)
 {
+    dVAR;
     PERL_UNUSED_ARG(argc); /* may not be used depending on _BODY macro */
     PERL_UNUSED_ARG(argv);
     PERL_SYS_INIT_BODY(argc, argv);
@@ -195,6 +196,7 @@ Perl_sys_init(int* argc, char*** argv)
 void
 Perl_sys_init3(int* argc, char*** argv, char*** env)
 {
+    dVAR;
     PERL_UNUSED_ARG(argc); /* may not be used depending on _BODY macro */
     PERL_UNUSED_ARG(argv);
     PERL_UNUSED_ARG(env);
@@ -204,6 +206,7 @@ Perl_sys_init3(int* argc, char*** argv, char*** env)
 void
 Perl_sys_term(pTHX)
 {
+    dVAR;
     if (!PL_veto_cleanup) {
        PERL_SYS_TERM_BODY();
     }