summaryrefslogtreecommitdiffstats
path: root/src/global_checks.ml
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-24 23:43:32 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-24 23:43:32 +0000
commitad72634c3dbdd5802fda01d432f18b60c534f46d (patch)
tree380cb6355c918720a28b3dd811c8b0adf191ef78 /src/global_checks.ml
parent2c6ed1ba0039c3d905b659ada15e39b8d7af5d83 (diff)
downloadperl_checker-ad72634c3dbdd5802fda01d432f18b60c534f46d.tar
perl_checker-ad72634c3dbdd5802fda01d432f18b60c534f46d.tar.gz
perl_checker-ad72634c3dbdd5802fda01d432f18b60c534f46d.tar.bz2
perl_checker-ad72634c3dbdd5802fda01d432f18b60c534f46d.tar.xz
perl_checker-ad72634c3dbdd5802fda01d432f18b60c534f46d.zip
kill "undeclared variable $^S" (eg in standalone.pm)
Diffstat (limited to 'src/global_checks.ml')
-rw-r--r--src/global_checks.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/global_checks.ml b/src/global_checks.ml
index 800bb54..ceed828 100644
--- a/src/global_checks.ml
+++ b/src/global_checks.ml
@@ -165,7 +165,7 @@ let is_global_var context ident =
match context with
| I_scalar ->
(match ident with
- | "@" | "!" | ">" | "\\" | "$" | "^A" | "'" | "/" | "?" | "<" | "^W" | "|" | "^I" | "&" | "."
+ | "@" | "!" | ">" | "\\" | "$" | "^A" | "'" | "/" | "?" | "<" | "^S" | "^W" | "|" | "^I" | "&" | "."
| "0" | "1" | "2" | "3" | "4" | "5" | "6" | "7" | "8" | "9" -> true
| _ -> false)
| I_array ->