misc tweaks

p4raw-id: //depot/perl@4086

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index 5a9c267ba1..25614518ce 100644
--- a/toke.c
+++ b/toke.c
@@ -6517,7 +6517,7 @@ Perl_scan_num(pTHX_ char *start)
 		s += 2;
 	    }
 	    /* check for a decimal in disguise */
-	    else if (strchr(".Ee", s[1]))
+	    else if (s[1] == '.' || s[1] == 'e' || s[1] == 'E')
 		goto decimal;
 	    /* so it must be octal */
 	    else