OP *o;
va_list args;
va_start(args, pat);
- o = do_die(aTHX_ pat, &args);
+ o = do_die(pat, &args);
va_end(args);
return o;
}
OP *o;
va_list args;
va_start(args, pat);
- o = do_die(aTHX_ pat, &args);
+ o = do_die(pat, &args);
va_end(args);
return o;
}
}
double
-Perl_my_atof(const char* s) {
+Perl_my_atof(pTHX_ const char* s) {
#ifdef USE_LOCALE_NUMERIC
if ((PL_hints & HINT_LOCALE) && PL_numeric_local) {
double x, y;