summaryrefslogtreecommitdiffstats
path: root/perl_checker.src/global_checks.ml
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-01-29 15:35:00 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-01-29 15:35:00 +0000
commit0ef2c7114b03fcd058645f901c62e4bb3c12d16f (patch)
tree2b15d78dafca9ade5c2fe05851476e4fbb351a72 /perl_checker.src/global_checks.ml
parent1f9fe994d4dcec6bf591170cc9c52085d1467ec1 (diff)
downloadperl_checker-0ef2c7114b03fcd058645f901c62e4bb3c12d16f.tar
perl_checker-0ef2c7114b03fcd058645f901c62e4bb3c12d16f.tar.gz
perl_checker-0ef2c7114b03fcd058645f901c62e4bb3c12d16f.tar.bz2
perl_checker-0ef2c7114b03fcd058645f901c62e4bb3c12d16f.tar.xz
perl_checker-0ef2c7114b03fcd058645f901c62e4bb3c12d16f.zip
add "$."
Diffstat (limited to 'perl_checker.src/global_checks.ml')
-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 9f47b6a..f94309a 100644
--- a/perl_checker.src/global_checks.ml
+++ b/perl_checker.src/global_checks.ml
@@ -114,7 +114,7 @@ let is_global_var context ident =
match context with
| I_scalar ->
(match ident with
- | "@" | "!" | ">" | "\\" | "$" | "^A" | "'" | "/" | "?" | "<" | "^W" | "|" | "^I" | "&"
+ | "@" | "!" | ">" | "\\" | "$" | "^A" | "'" | "/" | "?" | "<" | "^W" | "|" | "^I" | "&" | "."
| "0" | "1" | "2" | "3" | "4" | "5" | "6" | "7" | "8" | "9" -> true
| _ -> false)
| I_array ->