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

rafl at dev.catalyst.perl.org rafl at dev.catalyst.perl.org
Mon Nov 10 01:35:53 GMT 2008


Author: rafl
Date: 2008-11-10 01:35:52 +0000 (Mon, 10 Nov 2008)
New Revision: 5089

Modified:
   Devel-Declare/1.000/trunk/stolen_chunk_of_toke.c
Log:
Eliminate undefined symbols.

Modified: Devel-Declare/1.000/trunk/stolen_chunk_of_toke.c
===================================================================
--- Devel-Declare/1.000/trunk/stolen_chunk_of_toke.c	2008-11-10 01:28:01 UTC (rev 5088)
+++ Devel-Declare/1.000/trunk/stolen_chunk_of_toke.c	2008-11-10 01:35:52 UTC (rev 5089)
@@ -53,6 +53,8 @@
                (MEM_SIZE)((n)))));  \
      } STMT_END
 
+#define isCONTROLVAR(x) (isUPPER(x) || strchr("[\\]^_?", (x)))
+
 /* On MacOS, respect nonbreaking spaces */
 #ifdef MACOS_TRADITIONAL
 #define SPACE_OR_TAB(c) ((c)==' '||(c)=='\312'||(c)=='\t')
@@ -916,8 +918,11 @@
 	bracket = s;
 	s++;
     }
+    /* we always call this with ck_uni == 0 (rafl) */
+    /*
     else if (ck_uni)
 	check_uni();
+    */
     if (s < send)
 	*d = *s++;
     d[1] = '\0';
@@ -957,12 +962,17 @@
 	    *d = '\0';
 	    while (s < send && SPACE_OR_TAB(*s)) s++;
 	    if ((*s == '[' || (*s == '{' && strNE(dest, "sub")))) {
+		/* we don't want perl to guess what is meant. the keyword
+		 * parser decides that later. (rafl)
+		 */
+		/*
 		if (ckWARN(WARN_AMBIGUOUS) && keyword(dest, d - dest)) {
 		    const char *brack = *s == '[' ? "[...]" : "{...}";
 		    Perl_warner(aTHX_ packWARN(WARN_AMBIGUOUS),
 			"Ambiguous use of %c{%s%s} resolved to %c%s%s",
 			funny, dest, brack, funny, dest, brack);
 		}
+		*/
 		bracket++;
 		PL_lex_brackstack[PL_lex_brackets++] = (char)(XOPERATOR | XFAKEBRACK);
 		return s;
@@ -989,6 +999,10 @@
 	    }
 	    if (funny == '#')
 		funny = '@';
+	    /* we don't want perl to guess what is meant. the keyword
+	     * parser decides that later. (rafl)
+	     */
+	    /*
 	    if (PL_lex_state == LEX_NORMAL) {
 		if (ckWARN(WARN_AMBIGUOUS) &&
 		    (keyword(dest, d - dest) || get_cv(dest, FALSE)))
@@ -998,13 +1012,17 @@
 			funny, dest, funny, dest);
 		}
 	    }
+	    */
 	}
 	else {
 	    s = bracket;		/* let the parser handle it */
 	    *dest = '\0';
 	}
     }
+    /* don't intuit. we really just want the string. (rafl) */
+    /*
     else if (PL_lex_state == LEX_INTERPNORMAL && !PL_lex_brackets && !intuit_more(s))
 	PL_lex_state = LEX_INTERPEND;
+    */
     return s;
 }




More information about the Bast-commits mailing list