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 | 31c2addd53bc43599c286ce2c821dce1e4232ba0 (patch) | |
| tree | 059f69cbcfeb11bb45f5f31407881472caf15ef6 | |
| parent | d796a03012be18aad75008fec86ba90bf1d3c513 (diff) | |
| download | perl_checker-31c2addd53bc43599c286ce2c821dce1e4232ba0.tar perl_checker-31c2addd53bc43599c286ce2c821dce1e4232ba0.tar.gz perl_checker-31c2addd53bc43599c286ce2c821dce1e4232ba0.tar.bz2 perl_checker-31c2addd53bc43599c286ce2c821dce1e4232ba0.tar.xz perl_checker-31c2addd53bc43599c286ce2c821dce1e4232ba0.zip | |
handle __DATA__ thanks to Rafael
| -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)) } |