@@ -115,7 +115,7 @@ S_croak_xs_usage(pTHX_ const CV *const cv, const char *const params)
115
115
Perl_croak_nocontext ("Usage: %s(%s)" , gvname , params );
116
116
} else {
117
117
/* Pants. I don't think that it should be possible to get here. */
118
- Perl_croak_nocontext ("Usage: CODE(0x%" UVxf ")(%s)" , PTR2UV (cv ), params );
118
+ Perl_croak_nocontext ("Usage: CODE(0x%" UVxf ")(%s)" , PTR2UV (cv ), params );
119
119
}
120
120
}
121
121
@@ -226,33 +226,40 @@ const char * Perl_prescan_version(pTHX_ const char *s, bool strict, const char**
226
226
#if PERL_VERSION_LT (5 ,27 ,9 )
227
227
# define LC_NUMERIC_LOCK
228
228
# define LC_NUMERIC_UNLOCK
229
- #if PERL_VERSION_LT (5 ,19 ,0 )
230
- # undef STORE_LC_NUMERIC_SET_STANDARD
231
- # undef RESTORE_LC_NUMERIC
232
- # undef DECLARATION_FOR_LC_NUMERIC_MANIPULATION
233
- # ifdef USE_LOCALE
234
- # define DECLARATION_FOR_LC_NUMERIC_MANIPULATION char *loc
235
- # define STORE_NUMERIC_SET_STANDARD ()\
236
- loc = savepv(setlocale(LC_NUMERIC, NULL)); \
237
- SAVEFREEPV(loc); \
238
- setlocale(LC_NUMERIC, "C");
239
-
240
- # define RESTORE_LC_NUMERIC ()\
241
- setlocale(LC_NUMERIC, loc);
242
- # else
243
- # define DECLARATION_FOR_LC_NUMERIC_MANIPULATION
244
- # define STORE_LC_NUMERIC_SET_STANDARD ()
245
- # define RESTORE_LC_NUMERIC ()
246
- # endif
247
- # endif
229
+ # if PERL_VERSION_LT (5 ,19 ,0 )
230
+ # undef STORE_LC_NUMERIC_SET_STANDARD
231
+ # undef RESTORE_LC_NUMERIC
232
+ # undef DECLARATION_FOR_LC_NUMERIC_MANIPULATION
233
+ # ifdef USE_LOCALE
234
+ # define DECLARATION_FOR_LC_NUMERIC_MANIPULATION char *loc
235
+ # define STORE_NUMERIC_SET_STANDARD ()\
236
+ loc = savepv(setlocale(LC_NUMERIC, NULL)); \
237
+ SAVEFREEPV(loc); \
238
+ setlocale(LC_NUMERIC, "C");
239
+ # define RESTORE_LC_NUMERIC ()\
240
+ setlocale(LC_NUMERIC, loc);
241
+ # else
242
+ # define DECLARATION_FOR_LC_NUMERIC_MANIPULATION
243
+ # define STORE_LC_NUMERIC_SET_STANDARD ()
244
+ # define RESTORE_LC_NUMERIC ()
245
+ # endif
246
+ # endif
248
247
#endif
249
248
250
249
#ifndef LOCK_NUMERIC_STANDARD
251
- #define LOCK_NUMERIC_STANDARD ()
250
+ # define LOCK_NUMERIC_STANDARD ()
252
251
#endif
253
252
254
253
#ifndef UNLOCK_NUMERIC_STANDARD
255
- #define UNLOCK_NUMERIC_STANDARD ()
254
+ # define UNLOCK_NUMERIC_STANDARD ()
255
+ #endif
256
+
257
+ /* The names of these changed in 5.28 */
258
+ #ifndef LOCK_LC_NUMERIC_STANDARD
259
+ # define LOCK_LC_NUMERIC_STANDARD () LOCK_NUMERIC_STANDARD()
260
+ #endif
261
+ #ifndef UNLOCK_LC_NUMERIC_STANDARD
262
+ # define UNLOCK_LC_NUMERIC_STANDARD () UNLOCK_NUMERIC_STANDARD()
256
263
#endif
257
264
258
265
/* ex: set ro: */
0 commit comments