make Dumper.xs work with 5.10.x

[perl5.git] / ext / Data / Dumper / Dumper.xs

diff --git a/ext/Data/Dumper/Dumper.xs b/ext/Data/Dumper/Dumper.xs
index e7a342e..b39b77a 100644 (file)
--- a/ext/Data/Dumper/Dumper.xs
+++ b/ext/Data/Dumper/Dumper.xs
@@ -412,7 +412,7 @@ DD_dump(pTHX_ SV *val, const char *name, STRLEN namelen, SV *retval, HV *seenhv,
 #if PERL_VERSION < 8
        if (realpack && *realpack == 'R' && strEQ(realpack, "Regexp")) 
 #elif PERL_VERSION < 11
-        if (realpack && realtype == SVt_PVMG && mg_find(sv, PERL_MAGIC_qr))
+        if (realpack && realtype == SVt_PVMG && mg_find(ival, PERL_MAGIC_qr))
 #else        
         if (realpack && realtype == SVt_REGEXP) 
 #endif