From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 4 May 2000 16:52:29 +0000 (+0000)
Subject: tokeq() could read unallocated field in argument
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=21a311eead0eeb6ab139ee2e94076b4d84d76c6f;p=p5sagit%2Fp5-mst-13.2.git

tokeq() could read unallocated field in argument

p4raw-id: //depot/perl@6063
---

diff --git a/toke.c b/toke.c
index 10273a0..ecaace3 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 != '\\')