This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #74798] fix the build for -Duseithreads
authorTony Cook <tony@develop-help.com>
Tue, 23 Jul 2013 01:48:54 +0000 (11:48 +1000)
committerTony Cook <tony@develop-help.com>
Tue, 23 Jul 2013 01:48:54 +0000 (11:48 +1000)
dist/Data-Dumper/Dumper.xs

index 99424c5..20ed7cf 100644 (file)
@@ -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 {