summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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 ->