From 19223c94b1e66d368510b0a51846cd81ff274578 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 26 Oct 2004 09:20:55 +0000 Subject: *DATA is a global variable --- perl_checker.src/global_checks.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl_checker.src/global_checks.ml b/perl_checker.src/global_checks.ml index f325d32..5875dce 100644 --- a/perl_checker.src/global_checks.ml +++ b/perl_checker.src/global_checks.ml @@ -164,7 +164,7 @@ let is_global_var context ident = | _ -> false) | I_star -> (match ident with - | "STDIN" | "STDOUT" | "STDERR" + | "STDIN" | "STDOUT" | "STDERR" | "DATA" | "__FILE__" | "__LINE__" | "undef" -> true | _ -> false) | I_func -> -- cgit v1.2.1