diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-27 17:15:31 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-27 17:15:31 +0000 |
| commit | 28c517bd5a2418308e95b6371d5ec0240ede5762 (patch) | |
| tree | 2db6cf70288c42d03e3c8e0ccc185e490aa4a721 | |
| parent | a90eb0b6de0f35441089aceca530672e5dc7e9b1 (diff) | |
| download | perl_checker-28c517bd5a2418308e95b6371d5ec0240ede5762.tar perl_checker-28c517bd5a2418308e95b6371d5ec0240ede5762.tar.gz perl_checker-28c517bd5a2418308e95b6371d5ec0240ede5762.tar.bz2 perl_checker-28c517bd5a2418308e95b6371d5ec0240ede5762.tar.xz perl_checker-28c517bd5a2418308e95b6371d5ec0240ede5762.zip | |
recognize binmode() (for eg urpmi)
| -rw-r--r-- | NEWS | 3 | ||||
| -rwxr-xr-x | fake_packages/gen.pl | 1 | ||||
| -rw-r--r-- | src/global_checks.ml | 2 |
3 files changed, 5 insertions, 1 deletions
@@ -1,3 +1,6 @@ +- perl_checker: + o recognize binmode() + Version 1.2.18 - 26 March 2012, by Thierry Vignaud - fake packages: diff --git a/fake_packages/gen.pl b/fake_packages/gen.pl index 8390534..a8704c9 100755 --- a/fake_packages/gen.pl +++ b/fake_packages/gen.pl @@ -135,6 +135,7 @@ sub parse_pm { $name =~ s/{$//; $l{$current_package}{$name} = [] if !defined($l{$current_package}{$name}) && !is_blacklisted($name); $state = 'waiting_for_param'; + warn ">> N=$name\n"; get_paras($name, $_) if /shift->/; } elsif ($state eq 'waiting_for_param' && /=\s*\@_/) { get_paras($name, $_); diff --git a/src/global_checks.ml b/src/global_checks.ml index b12284c..0140c44 100644 --- a/src/global_checks.ml +++ b/src/global_checks.ml @@ -184,7 +184,7 @@ let is_global_var context ident = | I_func -> (match ident with | "-b" | "-c" | "-d" | "-e" | "-f" | "-l" | "-o" | "-p" | "-r" | "-S" | "-s" | "-w" | "-x" | "-z" | "-t" - | "abs" | "alarm" | "atan2" | "bless" + | "abs" | "alarm" | "atan2" | "binmode" | "bless" | "caller" | "chdir" | "chmod" | "chomp" | "chop" | "chown" | "chr" | "chroot" | "close" | "closedir" | "cos" | "crypt" | "defined" | "delete" | "die" | "each" | "endpwent" | "eof" | "eval" | "exec" | "exists" | "exit" |