From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 16 Oct 2007 07:51:36 +0000 (+0000)
Subject: Add dVAR;s to the functions created in change 31970.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4fc0badb70b3241a7124934aa90a6676040de537;p=p5sagit%2Fp5-mst-13.2.git

Add dVAR;s to the functions created in change 31970.

p4raw-id: //depot/perl@32109
---

diff --git a/perl.c b/perl.c
index 26dcb6a..bb35671 100644
--- 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();
     }