[Bast-commits] r6196 - Devel-Declare/1.000/trunk

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-05-10 00:01:49 +0000 (Sun, 10 May 2009)
New Revision: 6196

Modified:
   Devel-Declare/1.000/trunk/Declare.xs
Log:
Don't invoke linestr callback if the parser is expecting an operator. This makes calling a method with the name of a declarator work.

Modified: Devel-Declare/1.000/trunk/Declare.xs
===================================================================
--- Devel-Declare/1.000/trunk/Declare.xs	2009-05-10 00:01:43 UTC (rev 6195)
+++ Devel-Declare/1.000/trunk/Declare.xs	2009-05-10 00:01:49 UTC (rev 6196)
@@ -330,6 +330,10 @@
 
   PERL_UNUSED_VAR(user_data);
 
+  if (DD_HAVE_PARSER && PL_expect == XOPERATOR) {
+    return o;
+  }
+
   /* if this is set, we just grabbed a delimited string or something,
      not a bareword, so NO TOUCHY */