diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-09-21 12:08:47 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-09-21 07:54:10 +0000 |
| commit | b57a0404d6b6347be89474e64fcdac6ac6ea98db (patch) | |
| tree | acdc5f5e654b84d9d6ecc8464e9ca179e7c71359 /toke.c | |
| parent | fab43c1bb262944cb8f1d820af87e47b89cd3e12 (diff) | |
| download | perl-b57a0404d6b6347be89474e64fcdac6ac6ea98db.tar.gz | |
deal with some gcc warnings
Message-ID: <45122C6F.9080904@iki.fi>
p4raw-id: //depot/perl@28877
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2193,8 +2193,8 @@ S_scan_const(pTHX_ char *start) s += 3; len = e - s; uv = grok_hex(s, &len, &flags, NULL); - if ( len != e - s ) { - uv=0xFFFD; + if ( e > s && len != (STRLEN)(e - s) ) { + uv = 0xFFFD; } s = e + 1; goto NUM_ESCAPE_INSERT; |