This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
make Dumper.xs work with 5.10.x
authorDavid Mitchell <davem@iabyn.com>
Sun, 4 Jan 2009 00:19:00 +0000 (00:19 +0000)
committerDavid Mitchell <davem@iabyn.com>
Sun, 4 Jan 2009 00:19:00 +0000 (00:19 +0000)
ext/Data/Dumper/Dumper.xs

index e7a342e..b39b77a 100644 (file)
@@ -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