summaryrefslogtreecommitdiffstats
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
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)
-rw-r--r--NEWS1
-rw-r--r--src/global_checks.ml2
2 files changed, 2 insertions, 1 deletions
diff --git a/NEWS b/NEWS
index b38ea5a..90d83e9 100644
--- a/NEWS
+++ b/NEWS
@@ -2,6 +2,7 @@
- update Net::FTP fake package for installer
- perl_checker:
o recognize \B in regexps
+ o kill "undeclared variable $^S"
Version 1.2.17 - 19 March 2012, by Thierry Vignaud
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 ->