Guest User

Untitled

a guest
Jun 23rd, 2018
98
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.40 KB | None | 0 0
  1. diff --git a/Declare.xs b/Declare.xs
  2. index c0c7d7b..edfbc0d 100644
  3. --- a/Declare.xs
  4. +++ b/Declare.xs
  5. @@ -330,6 +330,10 @@ STATIC OP *dd_ck_const(pTHX_ OP *o, void *user_data) {
  6.  
  7. PERL_UNUSED_VAR(user_data);
  8.  
  9. + if (DD_HAVE_PARSER && PL_expect == XOPERATOR) {
  10. + return o;
  11. + }
  12. +
  13. /* if this is set, we just grabbed a delimited string or something,
  14. not a bareword, so NO TOUCHY */
Add Comment
Please, Sign In to add comment