diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-10-26 09:20:55 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-10-26 09:20:55 +0000 |
| commit | 19223c94b1e66d368510b0a51846cd81ff274578 (patch) | |
| tree | 3e9aab281cf4ff138af616af7fd49b9752a666de | |
| parent | 31c2addd53bc43599c286ce2c821dce1e4232ba0 (diff) | |
| download | perl_checker-19223c94b1e66d368510b0a51846cd81ff274578.tar perl_checker-19223c94b1e66d368510b0a51846cd81ff274578.tar.gz perl_checker-19223c94b1e66d368510b0a51846cd81ff274578.tar.bz2 perl_checker-19223c94b1e66d368510b0a51846cd81ff274578.tar.xz perl_checker-19223c94b1e66d368510b0a51846cd81ff274578.zip | |
*DATA is a global variable
| -rw-r--r-- | perl_checker.src/global_checks.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 -> |