diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2003-01-29 15:35:00 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2003-01-29 15:35:00 +0000 |
commit | 6bf10ae779afdb335730eafc4612d1ec0b71a4f0 (patch) | |
tree | 161f4b735ac262845ab0f82c65357aacc0daff1b /perl_checker.src | |
parent | 426a8e6217c8cfbf03747a87488886cc0242b4ff (diff) | |
download | perl-MDK-Common-6bf10ae779afdb335730eafc4612d1ec0b71a4f0.tar perl-MDK-Common-6bf10ae779afdb335730eafc4612d1ec0b71a4f0.tar.gz perl-MDK-Common-6bf10ae779afdb335730eafc4612d1ec0b71a4f0.tar.bz2 perl-MDK-Common-6bf10ae779afdb335730eafc4612d1ec0b71a4f0.tar.xz perl-MDK-Common-6bf10ae779afdb335730eafc4612d1ec0b71a4f0.zip |
add "$."
Diffstat (limited to 'perl_checker.src')
-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 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 -> |