X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FDevel-Declare.git;a=blobdiff_plain;f=Declare.xs;fp=Declare.xs;h=500e9d707b504e4ea8d73a3cee2cf14dd01fd711;hp=95dd49547e63e46b8109055677a2bdb4876809dc;hb=954da33291094e62b3712a4ce0d1d138f8fdbd6d;hpb=fb4e2a38b19e9f6cc64e1b8ade89c8c6890a93dc

diff --git a/Declare.xs b/Declare.xs
index 95dd495..500e9d7 100644
--- a/Declare.xs
+++ b/Declare.xs
@@ -381,6 +381,10 @@ STATIC OP *dd_ck_const(pTHX_ OP *o, void *user_data) {
       break;
   }
 
+  if (strnEQ (PL_bufptr, "->", 2)) {
+    return o;
+  }
+
   dd_linestr_callback(aTHX_ "const", name);
 
   return o;