summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-09-06 17:57:52 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-09-06 17:57:52 +0000
commit80154e9b4addfda699fdd3c40829974cc98ed367 (patch)
treeaf71f50c8ef8abc55c731855695298f50c849171 /toke.c
parent8c0bd4639f4f8cad35161bd8605a4cd38299fb7a (diff)
downloadperl-80154e9b4addfda699fdd3c40829974cc98ed367.tar.gz
misc tweaks
p4raw-id: //depot/perl@4086
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c2
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