summaryrefslogtreecommitdiffstats
path: root/perl_checker.src
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-10-26 09:20:55 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-10-26 09:20:55 +0000
commit19223c94b1e66d368510b0a51846cd81ff274578 (patch)
tree3e9aab281cf4ff138af616af7fd49b9752a666de /perl_checker.src
parent31c2addd53bc43599c286ce2c821dce1e4232ba0 (diff)
downloadperl_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
Diffstat (limited to 'perl_checker.src')
-rw-r--r--perl_checker.src/global_checks.ml2
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 ->