Add in missing dVAR that prevents compilation with

-DPERL_GLOBAL_STRUCT_PRIVATE

p4raw-id: //depot/perl@29877

diff --git a/perl.c b/perl.c
index 88bbcbb..9c7b314 100644 (file)
--- 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;