Add in missing dVAR that prevents compilation with

-DPERL_GLOBAL_STRUCT_PRIVATE

p4raw-id: //depot/perl@29877

1 files changed, 2 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index 88bbcbbd80..9c7b3148fd 100644
--- a/perl.c
+++ b/perl.c
@@ -1326,6 +1326,8 @@ Releases a Perl interpreter.  See L<perlembed>.
 void
 perl_free(pTHXx)
 {
+    dVAR;
+
     if (PL_veto_cleanup)
 	return;