X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=stolen_chunk_of_toke.c;h=ab1c187a97b8a68433b1bc6cbcf1e3e9c0233f0f;hb=b7f6e45e4fe4d5ef3092a6cb18e04123a303c0fb;hp=038a91c345a2c78626855b6b103d5aea7dd48309;hpb=52790f4ff3b7f4801984e5ef6a7e2604b61a19bd;p=p5sagit%2FDevel-Declare.git

diff --git a/stolen_chunk_of_toke.c b/stolen_chunk_of_toke.c
index 038a91c..ab1c187 100644
--- a/stolen_chunk_of_toke.c
+++ b/stolen_chunk_of_toke.c
@@ -17,6 +17,8 @@
  *   up but if it does blame me (Matt S Trout), not the poor original authors
  */
 
+#include "ppport.h"
+
 /* the following #defines are stolen from assorted headers, not toke.c (mst) */
 
 #define skipspace(a)            S_skipspace(aTHX_ a, 0)
@@ -1010,8 +1012,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);