X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-Declare.git;a=blobdiff_plain;f=stolen_chunk_of_toke.c;h=95e28393defa36a77ba5be247177a2c57e5509b4;hp=038a91c345a2c78626855b6b103d5aea7dd48309;hb=8e2897934669141b881472964d3e08a87cf083de;hpb=e8e28944ba0dbcaf478071464085b15c5104e104 diff --git a/stolen_chunk_of_toke.c b/stolen_chunk_of_toke.c index 038a91c..95e2839 100644 --- a/stolen_chunk_of_toke.c +++ b/stolen_chunk_of_toke.c @@ -1010,8 +1010,8 @@ S_scan_ident(pTHX_ register char *s, register const char *send, char *dest, STRL d++; if (UTF) { e = s; - while ( ( e < send - && isIDFIRST_utf8_safe(e, send) + while ( (( e < send + && isIDFIRST_utf8_safe(e, send)) || *e == ':')) { e += UTF8SKIP(e);