From: Jan P. <jp...@us...> - 2007-04-14 15:55:36
|
Update of /cvsroot/e-p-i-c/org.epic.perleditor/src/org/epic/core/parser In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv19958/src/org/epic/core/parser Modified Files: Tag: stable perl.g Log Message: Fixed bug [ 1700095 ] wrong syntax highlighting when using qw// 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.9 retrieving revision 1.8.2.10 diff -u -d -r1.8.2.9 -r1.8.2.10 --- perl.g 27 Mar 2007 18:58:04 -0000 1.8.2.9 +++ perl.g 14 Apr 2007 15:55:34 -0000 1.8.2.10 @@ -158,7 +158,7 @@ => { notOper = true; } t1:WORD { $setToken(t1); } | { !afterArrow }? (("tr" | 's' | 'y') ~'}') => SUBST_EXPR { $setType(PerlTokenTypes.SUBST_EXPR); } - | { !afterArrow }? (("qq" | "qx" | "qw" | "qr" | 'm' | 'q') ~('a'..'z' | '0'..'9' | '_' | '}' | '\r' | '\n' | ' ')) + | (("qq" | "qx" | "qw" | "qr" | 'm' | 'q') ~('a'..'z' | '0'..'9' | '_' | '}' | '\r' | '\n' | ' ')) => MATCH_EXPR { $setType(PerlTokenTypes.MATCH_EXPR); } | (NUMBER) => n:NUMBER { $setToken(n); } |