In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/1f55bb435760d6f0cd87d3d9fd23b3c51253b43e?hp=da46ab3732c369c451e8f975eeca0700552ac282>
- Log ----------------------------------------------------------------- commit 1f55bb435760d6f0cd87d3d9fd23b3c51253b43e Author: Tony Cook <[email protected]> Date: Tue Jul 23 11:48:54 2013 +1000 [perl #74798] fix the build for -Duseithreads ----------------------------------------------------------------------- Summary of changes: dist/Data-Dumper/Dumper.xs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/dist/Data-Dumper/Dumper.xs b/dist/Data-Dumper/Dumper.xs index 99424c5..20ed7cf 100644 --- a/dist/Data-Dumper/Dumper.xs +++ b/dist/Data-Dumper/Dumper.xs @@ -124,7 +124,7 @@ TOP: * The perl code does this by matching against /^(?:0|-?[1-9]\d{0,8})\z/ */ static bool -safe_decimal_number(SV *val) { +safe_decimal_number(pTHX_ SV *val) { STRLEN len; const char *p = SvPV(val, len); @@ -1157,7 +1157,7 @@ DD_dump(pTHX_ SV *val, const char *name, STRLEN namelen, SV *retval, HV *seenhv, * the pure perl code. * see [perl #74798] */ - else if (useqq && safe_decimal_number(val)) { + else if (useqq && safe_decimal_number(aTHX_ val)) { sv_catsv(retval, val); } else { -- Perl5 Master Repository
