From 28c517bd5a2418308e95b6371d5ec0240ede5762 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 27 Mar 2012 17:15:31 +0000
Subject: recognize binmode() (for eg urpmi)

---
 NEWS                 | 3 +++
 fake_packages/gen.pl | 1 +
 src/global_checks.ml | 2 +-
 3 files changed, 5 insertions(+), 1 deletion(-)

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