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
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
e80fe95
)
numeric.c: Remove unnecessary test
author
Karl Williamson
<khw@cpan.org>
Mon, 2 Jun 2014 19:52:38 +0000
(13:52 -0600)
committer
Karl Williamson
<khw@cpan.org>
Thu, 5 Jun 2014 18:23:02 +0000
(12:23 -0600)
The second test won't be true unless the first one is (but not vice
versa), so no need to test the first.
numeric.c
patch
|
blob
|
blame
|
history
diff --git
a/numeric.c
b/numeric.c
index
3c2df26
..
7e95b46
100644
(file)
--- a/
numeric.c
+++ b/
numeric.c
@@
-860,7
+860,7
@@
Perl_my_atof(pTHX_ const char* s)
{
DECLARE_STORE_LC_NUMERIC_SET_TO_NEEDED();
- if (PL_numeric_
local && PL_numeric_
radix_sv && IN_SOME_LOCALE_FORM) {
+ if (PL_numeric_radix_sv && IN_SOME_LOCALE_FORM) {
const char *standard = NULL, *local = NULL;
bool use_standard_radix;