tokeq() could read unallocated field in argument

p4raw-id: //depot/perl@6063

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index 10273a0111..ecaace3622 100644
--- a/toke.c
+++ b/toke.c
@@ -896,7 +896,7 @@ S_tokeq(pTHX_ SV *sv)
 	goto finish;
 
     s = SvPV_force(sv, len);
-    if (SvIVX(sv) == -1)
+    if (SvTYPE(sv) >= SVt_PVIV && SvIVX(sv) == -1)
 	goto finish;
     send = s + len;
     while (s < send && *s != '\\')