diff options
author | Karl Williamson <khw@cpan.org> | 2018-02-13 16:34:27 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2018-02-18 10:55:13 -0700 |
commit | 7e5377f714ebe84e0fe2599b3bfec50036f0d18f (patch) | |
tree | a44e3e5ee08105a575c857789212e05509f74ac8 /sv.c | |
parent | 7f9e96320c0b3f68706709cbfbb802f6fd17cd07 (diff) | |
download | perl-7e5377f714ebe84e0fe2599b3bfec50036f0d18f.tar.gz |
Use proper #define to see if need PLnumeric underlying_obj
perl.h has a single #define which is the combination of several that
determines if this object should be created or not.
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -15561,7 +15561,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags, PL_numeric_name = SAVEPV(proto_perl->Inumeric_name); PL_numeric_radix_sv = sv_dup_inc(proto_perl->Inumeric_radix_sv, param); -# if defined(HAS_NEWLOCALE) && ! defined(NO_POSIX_2008_LOCALE) +# if defined(HAS_POSIX_2008_LOCALE) PL_underlying_numeric_obj = NULL; # endif #endif /* !USE_LOCALE_NUMERIC */ |