From 0eda806e5c2c1f7247d4a6ca166343d4dd943eba Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sat, 24 Mar 2012 23:43:32 +0000
Subject: kill "undeclared variable $^S" (eg in standalone.pm)

---
 NEWS                 | 1 +
 src/global_checks.ml | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

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 -> 
-- 
cgit v1.2.1