diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-25 19:46:02 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-25 19:46:02 +0000 |
| commit | cb30fa90fa61aec3c1a4b350aeb99fa77fc2ce87 (patch) | |
| tree | 99cc84716620d188b97719a723ceec6189831b23 | |
| parent | 8501e88f76d4c570123e318b192a6a223192b338 (diff) | |
| download | perl_checker-cb30fa90fa61aec3c1a4b350aeb99fa77fc2ce87.tar perl_checker-cb30fa90fa61aec3c1a4b350aeb99fa77fc2ce87.tar.gz perl_checker-cb30fa90fa61aec3c1a4b350aeb99fa77fc2ce87.tar.bz2 perl_checker-cb30fa90fa61aec3c1a4b350aeb99fa77fc2ce87.tar.xz perl_checker-cb30fa90fa61aec3c1a4b350aeb99fa77fc2ce87.zip | |
recognize -p (pipe test) & -S (socket test) such as in MDK::Common::File
| -rw-r--r-- | NEWS | 1 | ||||
| -rw-r--r-- | TODO | 2 | ||||
| -rw-r--r-- | src/global_checks.ml | 2 |
3 files changed, 2 insertions, 3 deletions
@@ -3,6 +3,7 @@ o update Net::FTP for installer - perl_checker: o recognize \B in regexps + o recognize -p (pipe test) & -S (socket test) o kill "undeclared variable $^S" Version 1.2.17 - 19 March 2012, by Thierry Vignaud @@ -8,8 +8,6 @@ - $run{with_flags} .= $run{with_flags} . " --without " . $_[0]; -- unknown function -p - - $short_entries[$#entries] = $1; - sort { values %{$list->[$a]} <=> values %{$list->[$b]} } diff --git a/src/global_checks.ml b/src/global_checks.ml index ceed828..af651b0 100644 --- a/src/global_checks.ml +++ b/src/global_checks.ml @@ -183,7 +183,7 @@ let is_global_var context ident = | _ -> false) | I_func -> (match ident with - | "-b" | "-c" | "-d" | "-e" | "-f" | "-l" | "-o" | "-r" | "-s" | "-w" | "-x" | "-z" | "-t" + | "-b" | "-c" | "-d" | "-e" | "-f" | "-l" | "-o" | "-p" | "-r" | "-S" | "-s" | "-w" | "-x" | "-z" | "-t" | "abs" | "alarm" | "atan2" | "bless" | "caller" | "chdir" | "chmod" | "chomp" | "chop" | "chown" | "chr" | "chroot" | "close" | "closedir" | "cos" | "crypt" | "defined" | "delete" | "die" |