diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-10-18 09:45:47 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-10-18 09:45:47 +0000 |
| commit | c099d646ae4693eeb591d4c8cd9b629962f6b7e4 (patch) | |
| tree | 4969c9b101bfab30e2b56cd3d4221c462f800212 /toke.c | |
| parent | 9bde8eb087a2c05d4c8b0394a59d28a09fe5f529 (diff) | |
| download | perl-c099d646ae4693eeb591d4c8cd9b629962f6b7e4.tar.gz | |
Silence a casting warning
p4raw-id: //depot/perl@32128
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -6918,7 +6918,7 @@ S_pending_ident(pTHX) char pit = PL_pending_ident; const STRLEN tokenbuf_len = strlen(PL_tokenbuf); /* All routes through this function want to know if there is a colon. */ - const char *const has_colon = memchr (PL_tokenbuf, ':', tokenbuf_len); + const char *const has_colon = (const char*) memchr (PL_tokenbuf, ':', tokenbuf_len); PL_pending_ident = 0; /* PL_realtokenstart = realtokenend = PL_bufptr - SvPVX(PL_linestr); */ |