diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-05-04 17:30:22 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-05-04 17:30:22 +0000 |
| commit | 9067b776a4619539a10a21959139776c500bc1c0 (patch) | |
| tree | 63373a56909cfd46b8c9abeb7ebe8969c187a209 /toke.c | |
| parent | aa40b8036a409ed6ba1e685fc83e99888b654b9d (diff) | |
| parent | be28567c7b4a66645fbbd71964c8c6819169207c (diff) | |
| download | perl-9067b776a4619539a10a21959139776c500bc1c0.tar.gz | |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@6065
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 != '\\') |