diff options
author | Karl Williamson <khw@cpan.org> | 2018-01-15 15:48:57 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2018-01-30 22:49:03 -0700 |
commit | 688523a07c52ae6d2b46270f0eebc90807f34595 (patch) | |
tree | 74b578ab81e0b5fd557d858f0bd21c13819bafec /vutil.c | |
parent | 4a6e2ba6734aaf982dd135520aa5ce3ddcfc4d6e (diff) | |
download | perl-688523a07c52ae6d2b46270f0eebc90807f34595.tar.gz |
Simplify some LC_NUMERIC macros
These macros are marked as subject to change and are not documented
externally. I don't know what I was thinking when I named some of them,
but whatever no longer makes sense to me. Simplify them, and change so
there is only one restore macro to remember.
Diffstat (limited to 'vutil.c')
-rw-r--r-- | vutil.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -652,7 +652,8 @@ VER_NV: } #endif { /* Braces needed because macro just below declares a variable */ - STORE_NUMERIC_LOCAL_SET_STANDARD(); + DECLARATION_FOR_LC_NUMERIC_MANIPULATION; + STORE_LC_NUMERIC_SET_STANDARD(); LOCK_NUMERIC_STANDARD(); if (sv) { Perl_sv_catpvf(aTHX_ sv, "%.9"NVff, SvNVX(ver)); @@ -664,7 +665,7 @@ VER_NV: buf = tbuf; } UNLOCK_NUMERIC_STANDARD(); - RESTORE_NUMERIC_LOCAL(); + RESTORE_LC_NUMERIC(); } while (buf[len-1] == '0' && len > 0) len--; if ( buf[len-1] == '.' ) len--; /* eat the trailing decimal */ |