Bumping version to 0.006022

[p5sagit/Devel-Declare.git] / stolen_chunk_of_toke.c

diff --git a/stolen_chunk_of_toke.c b/stolen_chunk_of_toke.c
index 038a91c..ab1c187 100644 (file)
--- 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);