diff options
| author | Tony Cook <tony@develop-help.com> | 2010-09-06 23:40:24 +1000 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2010-09-06 23:40:24 +1000 |
| commit | e3ec2293dc1b98fee9c52af41dc25f8ab8ed3508 (patch) | |
| tree | 85b141f0d4ccfb4429a463907dcff919a0839834 /dist/Data-Dumper | |
| parent | f1dcae2ca2c256c755eeec79c4e7d4d5b9cf658f (diff) | |
| download | perl-e3ec2293dc1b98fee9c52af41dc25f8ab8ed3508.tar.gz | |
rt74170: handle the stack changing in the custom sort functions
Based on work by Father Chrysostomos <sprout@cpan.org>, but all
my fault.
Diffstat (limited to 'dist/Data-Dumper')
| -rw-r--r-- | dist/Data-Dumper/Dumper.xs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/dist/Data-Dumper/Dumper.xs b/dist/Data-Dumper/Dumper.xs index f2c18211c8..52a57f8c8c 100644 --- a/dist/Data-Dumper/Dumper.xs +++ b/dist/Data-Dumper/Dumper.xs @@ -1188,10 +1188,12 @@ Data_Dumper_Dumpxs(href, ...) else newapad = apad; + PUTBACK; DD_dump(aTHX_ val, SvPVX_const(name), SvCUR(name), valstr, seenhv, postav, &level, indent, pad, xpad, newapad, sep, pair, freezer, toaster, purity, deepcopy, quotekeys, bless, maxdepth, sortkeys); + SPAGAIN; if (indent >= 2 && !terse) SvREFCNT_dec(newapad); |