[E-p-i-c-commits] org.epic.perleditor/src/org/epic/core/parser perl.g, 1.8.2.2, 1.8.2.3

[Jan P. <jp...@us...>]

Update of /cvsroot/e-p-i-c/org.epic.perleditor/src/org/epic/core/parser
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv4592/src/org/epic/core/parser

Modified Files:
      Tag: stable
	perl.g 
Log Message:
Fixed Bug [ 1562878 ] Here Docs produce errors, by disallowing multi-line heredoc terminators.

Index: perl.g
===================================================================
RCS file: /cvsroot/e-p-i-c/org.epic.perleditor/src/org/epic/core/parser/perl.g,v
retrieving revision 1.8.2.2
retrieving revision 1.8.2.3
diff -u -d -r1.8.2.2 -r1.8.2.3
--- perl.g	8 Aug 2006 15:23:28 -0000	1.8.2.2
+++ perl.g	25 Sep 2006 18:01:41 -0000	1.8.2.3
@@ -336,11 +336,11 @@
 	:
 	(
 		("<<" (WS)? '"')
-		=> "<<" (WS!)? '"'! ("\\\"" | ~('"' | '\uFFFF'))*
+		=> "<<" (WS!)? '"'! ("\\\"" | ~('"' | '\n' | '\r' | '\uFFFF'))*
 		| ("<<" (WS)? "'")
-		=> "<<" (WS!)? "'"! ("\\'"  | ~('\'' | '\uFFFF'))*
+		=> "<<" (WS!)? "'"! ("\\'"  | ~('\'' | '\n' | '\r' | '\uFFFF'))*
 		| ("<<" (WS)? '`')
-		=> "<<" (WS!)? '`'! ("\\`"  | ~('`' | '\uFFFF'))*
+		=> "<<" (WS!)? '`'! ("\\`"  | ~('`' | '\n' | '\r' | '\uFFFF'))*
 		| ("<<" (WS)? WORD_CHAR)
 		=> "<<" (WORD_CHAR)+
 	)