This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
numeric.c: Add comment
authorKarl Williamson <khw@cpan.org>
Sat, 25 Mar 2017 20:01:58 +0000 (14:01 -0600)
committerKarl Williamson <khw@cpan.org>
Tue, 24 Oct 2017 14:14:08 +0000 (08:14 -0600)
numeric.c

index 9d5982a..6821114 100644 (file)
--- a/numeric.c
+++ b/numeric.c
@@ -1209,6 +1209,8 @@ S_mulexp10(NV value, I32 exponent)
 NV
 Perl_my_atof(pTHX_ const char* s)
 {
+    /* 's' must be NUL terminated */
+
     NV x = 0.0;
 #ifdef USE_QUADMATH
     Perl_my_atof2(aTHX_ s, &x);