From 1f55bb435760d6f0cd87d3d9fd23b3c51253b43e Mon Sep 17 00:00:00 2001 From: Tony Cook Date: Tue, 23 Jul 2013 11:48:54 +1000 Subject: [PATCH] [perl #74798] fix the build for -Duseithreads --- 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 { -- 2.7.4