This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mg.c: _get_encoding needs dVAR
authorFather Chrysostomos <sprout@cpan.org>
Fri, 21 Nov 2014 05:22:41 +0000 (21:22 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 21 Nov 2014 05:23:01 +0000 (21:23 -0800)
mg.c

diff --git a/mg.c b/mg.c
index 679b309..50548cd 100644 (file)
--- 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) {