diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-10-20 10:26:12 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-10-20 10:26:12 +0000 |
| commit | eb676449d47b0c4994c0e677620771dfdbbecf1a (patch) | |
| tree | 344ba4b68b14670a822a688b2c3bffa368313823 /perl_checker.src/lexer.mll | |
| parent | a1d15e246c5eea6f1f192484ee3f468d34544b96 (diff) | |
| download | perl-MDK-Common-eb676449d47b0c4994c0e677620771dfdbbecf1a.tar perl-MDK-Common-eb676449d47b0c4994c0e677620771dfdbbecf1a.tar.gz perl-MDK-Common-eb676449d47b0c4994c0e677620771dfdbbecf1a.tar.bz2 perl-MDK-Common-eb676449d47b0c4994c0e677620771dfdbbecf1a.tar.xz perl-MDK-Common-eb676449d47b0c4994c0e677620771dfdbbecf1a.zip | |
handle __DATA__ thanks to Rafael
Diffstat (limited to 'perl_checker.src/lexer.mll')
| -rw-r--r-- | perl_checker.src/lexer.mll | 1 |
1 files changed, 1 insertions, 0 deletions
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)) } |