diff options
| author | David Mitchell <davem@iabyn.com> | 2009-01-04 00:19:00 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2009-01-04 00:19:00 +0000 |
| commit | bd2db5df3cd7c8f0ecc592ef15151e17c1504af9 (patch) | |
| tree | 748c9921238ae106f4194d459b12104dead342b0 /ext/Data | |
| parent | 105ae854636da9ac798d310437c2718c19f2c172 (diff) | |
| download | perl-bd2db5df3cd7c8f0ecc592ef15151e17c1504af9.tar.gz | |
make Dumper.xs work with 5.10.x
Diffstat (limited to 'ext/Data')
| -rw-r--r-- | ext/Data/Dumper/Dumper.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Data/Dumper/Dumper.xs b/ext/Data/Dumper/Dumper.xs index e7a342ea60..b39b77a150 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 |