From 5d7ce2843bbd858b3114df9a92c55fc3d42eb67c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sat, 9 Nov 2002 21:31:59 +0000 Subject: *** empty log message *** --- perl_checker.src/perl_checker.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl_checker.src/perl_checker.ml') diff --git a/perl_checker.src/perl_checker.ml b/perl_checker.src/perl_checker.ml index dd7b75e..cc5bb19 100644 --- a/perl_checker.src/perl_checker.ml +++ b/perl_checker.src/perl_checker.ml @@ -7,8 +7,8 @@ let _ = try Info.start_a_new_file file ; if false then - let tokens = Lexer.lexbuf2list Lexer.token lexbuf in - let _,_ = tokens, tokens in "" + let t = Lexer.lexbuf2list Lexer.token lexbuf in + let _,_ = t, t in "" else Parser.prog Lexer.token lexbuf with Failure s -> ( -- cgit v1.2.1