This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
infnan: comment tweak, IS_NUMBER_NOT_INT also if saw infnan
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 30 Jan 2015 02:21:35 +0000 (21:21 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 2 Feb 2015 22:02:59 +0000 (17:02 -0500)
perl.h

diff --git a/perl.h b/perl.h
index d4f7f52..d3951a9 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -6259,7 +6259,7 @@ int flock(int fd, int op);
                                              int).  value returned in pointed-
                                              to UV */
 #define IS_NUMBER_GREATER_THAN_UV_MAX 0x02 /* pointed to UV undefined */
                                              int).  value returned in pointed-
                                              to UV */
 #define IS_NUMBER_GREATER_THAN_UV_MAX 0x02 /* pointed to UV undefined */
-#define IS_NUMBER_NOT_INT            0x04 /* saw . or E notation */
+#define IS_NUMBER_NOT_INT            0x04 /* saw . or E notation or infnan */
 #define IS_NUMBER_NEG                0x08 /* leading minus sign */
 #define IS_NUMBER_INFINITY           0x10 /* this is big */
 #define IS_NUMBER_NAN                 0x20 /* this is not */
 #define IS_NUMBER_NEG                0x08 /* leading minus sign */
 #define IS_NUMBER_INFINITY           0x10 /* this is big */
 #define IS_NUMBER_NAN                 0x20 /* this is not */