From 8cbd6c0a65371f408e43864f81f2c0c01b5ba6aa Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 5 Jan 2004 12:09:42 +0000 Subject: warn when a PO: comment is not followed by N(...) --- perl_checker.src/parser.mly | 1 + 1 file changed, 1 insertion(+) (limited to 'perl_checker.src/parser.mly') diff --git a/perl_checker.src/parser.mly b/perl_checker.src/parser.mly index e124296..f9b5e9d 100644 --- a/perl_checker.src/parser.mly +++ b/perl_checker.src/parser.mly @@ -465,6 +465,7 @@ word_paren: | BAREWORD_PAREN { new_1esp (Ident(None, $1.any, get_pos $1)) $1 } | RAW_IDENT_PAREN { new_1esp (to_Ident $1) $1 } | PO_COMMENT word_paren { po_comment($1); new_esp M_special $2.any $1 $2 } +| PO_COMMENT { die_rule "N(...) must follow the #-PO: comment, with nothing in between" } arraylen: ARRAYLEN_IDENT {new_esp M_int (deref_arraylen (to_Ident $1)) $1 $1} | ARRAYLEN scalar {sp_0($2); new_esp M_int (deref_arraylen $2.any ) $1 $1 } | ARRAYLEN bracket_subscript {new_esp M_int (deref_arraylen $2.any) $1 $2} -- cgit v1.2.1