mg.c: _get_encoding needs dVAR

1 files changed, 1 insertions, 0 deletions

diff --git a/mg.c b/mg.c
index 679b309f86..50548cdbad 100644
--- a/mg.c
+++ b/mg.c
@@ -784,6 +784,7 @@ Perl__get_encoding(pTHX)
      * it, so we put the object into the global, and put a simple boolean into
      * the hints hash giving whether the global is valid or not */
 
+    dVAR;
     SV *is_encoding;
 
     if (PL_encoding) {