summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--NEWS3
-rwxr-xr-xfake_packages/gen.pl1
-rw-r--r--src/global_checks.ml2
3 files changed, 5 insertions, 1 deletions
diff --git a/NEWS b/NEWS
index 5b81ae1..22fa327 100644
--- a/NEWS
+++ b/NEWS
@@ -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"