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 | 2fbc8a40a2c119717aae566a19ac8512370c55d6 (patch) | |
| tree | 77fc1bcd502cf753c6bb6a50ff32c9118b03bdc8 | |
| parent | eb676449d47b0c4994c0e677620771dfdbbecf1a (diff) | |
| download | perl-MDK-Common-2fbc8a40a2c119717aae566a19ac8512370c55d6.tar perl-MDK-Common-2fbc8a40a2c119717aae566a19ac8512370c55d6.tar.gz perl-MDK-Common-2fbc8a40a2c119717aae566a19ac8512370c55d6.tar.bz2 perl-MDK-Common-2fbc8a40a2c119717aae566a19ac8512370c55d6.tar.xz perl-MDK-Common-2fbc8a40a2c119717aae566a19ac8512370c55d6.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 -> |