This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: bc37e90) | patch
Perl_sv_vcatpvfn_flags: skip IN_LC(LC_NUMERIC)
authorDavid Mitchell <davem@iabyn.com>
Sat, 20 May 2017 15:01:26 +0000 (16:01 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 7 Jun 2017 08:11:03 +0000 (09:11 +0100)
commitc10a72e1914795f6399890aafae13734552645cd
treea49895207cb176c57acebddc7616324805f4072atree | snapshot
parentbc37e90eb33540fa29c5be8911e2d2e25dc669dfcommit | diff
Perl_sv_vcatpvfn_flags: skip IN_LC(LC_NUMERIC)

In a couple of places it does

    if (PL_numeric_radix_sv && IN_LC(LC_NUMERIC)) { ... }

But PL_numeric_radix_sv is set to NULL unless we have a non-standard
radix point (i.e. not "."), and this can only happen when we're in the
scope of 'use locale'. So the IN_LC() should be a redundant (and
expensive) test. Replace it with an assert.
sv.c diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.