diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-24 23:43:32 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-24 23:43:32 +0000 |
| commit | ad72634c3dbdd5802fda01d432f18b60c534f46d (patch) | |
| tree | 380cb6355c918720a28b3dd811c8b0adf191ef78 /src | |
| parent | 2c6ed1ba0039c3d905b659ada15e39b8d7af5d83 (diff) | |
| download | perl_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')
| -rw-r--r-- | src/global_checks.ml | 2 |
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 -> |