From eb676449d47b0c4994c0e677620771dfdbbecf1a Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 20 Oct 2004 10:26:12 +0000 Subject: handle __DATA__ thanks to Rafael --- perl_checker.src/lexer.mll | 1 + 1 file changed, 1 insertion(+) (limited to 'perl_checker.src/lexer.mll') diff --git a/perl_checker.src/lexer.mll b/perl_checker.src/lexer.mll index d87249c..8d6714c 100644 --- a/perl_checker.src/lexer.mll +++ b/perl_checker.src/lexer.mll @@ -772,6 +772,7 @@ rule token = parse | "qw" pattern_open { set_delimit_char_open lexbuf "qw"; let s, pos = raw_ins qstring lexbuf in QUOTEWORDS(s, pos) } | "\n__END__" [^ '0'-'9' 'A'-'Z' 'a'-'z' '_'] +| "\n__DATA__" [^ '0'-'9' 'A'-'Z' 'a'-'z' '_'] | eof { EOF(pos lexbuf) } | _ { failwith (Printf.sprintf "%serror tokenizing <<%s>>" (pos2sfull lexbuf) (lexeme lexbuf)) } -- cgit v1.2.1