summaryrefslogtreecommitdiffstats
path: root/perl_checker.src
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-28 01:06:38 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-28 01:06:38 +0000
commitf30ab8f70df2f3a01d5f6c4600186ffe5d596c51 (patch)
treea96a71fcde0780525be2b90d0536ca6e8704e3c4 /perl_checker.src
parent3b4d4b850344bda9458ee792356188db997ccb63 (diff)
downloadperl-MDK-Common-f30ab8f70df2f3a01d5f6c4600186ffe5d596c51.tar
perl-MDK-Common-f30ab8f70df2f3a01d5f6c4600186ffe5d596c51.tar.gz
perl-MDK-Common-f30ab8f70df2f3a01d5f6c4600186ffe5d596c51.tar.bz2
perl-MDK-Common-f30ab8f70df2f3a01d5f6c4600186ffe5d596c51.tar.xz
perl-MDK-Common-f30ab8f70df2f3a01d5f6c4600186ffe5d596c51.zip
*** empty log message ***
Diffstat (limited to 'perl_checker.src')
-rw-r--r--perl_checker.src/tree.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl_checker.src/tree.ml b/perl_checker.src/tree.ml
index e91e0e1..3145215 100644
--- a/perl_checker.src/tree.ml
+++ b/perl_checker.src/tree.ml
@@ -371,7 +371,7 @@ let is_global_var context ident =
| "pack" | "pipe" | "pop" | "print" | "printf" | "push" | "quotemeta"
| "rand" | "read" | "readdir" | "readlink" | "redo" | "ref" | "rename" | "require" | "return" | "reverse" | "rmdir"
| "scalar" | "seek" | "select" | "setpwent" | "shift" | "sleep" | "sort" | "splice" | "split" | "sprintf" | "stat" | "substr"
- | "symlink" | "syscall" | "sysopen" | "sysread" | "sysseek" | "system" | "syswrite" | "time"
+ | "symlink" | "syscall" | "sysopen" | "sysread" | "sysseek" | "system" | "syswrite" | "tie" | "time"
| "uc" | "umask" | "undef" | "unlink" | "unpack" | "unshift" | "utime" | "values" | "vec" | "waitpid" | "wantarray" | "warn" | "write"
-> true