From: David Mitchell <davem@iabyn.com>
Date: Sun, 4 Jan 2009 00:19:00 +0000 (+0000)
Subject: make Dumper.xs work with 5.10.x
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bd2db5df3cd7c8f0ecc592ef15151e17c1504af9;p=p5sagit%2Fp5-mst-13.2.git

make Dumper.xs work with 5.10.x
---

diff --git a/ext/Data/Dumper/Dumper.xs b/ext/Data/Dumper/Dumper.xs
index e7a342e..b39b77a 100644
--- 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