From ddd599c3a0686636e507cb0d17fd2fdb45d9ec66 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Sun, 25 Mar 2012 19:46:02 +0000
Subject: recognize -p (pipe test) & -S (socket test) such as in
 MDK::Common::File

---
 NEWS                 | 1 +
 TODO                 | 2 --
 src/global_checks.ml | 2 +-
 3 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/NEWS b/NEWS
index 806553a..d3e16c3 100644
--- a/NEWS
+++ b/NEWS
@@ -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
diff --git a/TODO b/TODO
index 8c1c278..1511bce 100644
--- a/TODO
+++ b/TODO
@@ -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"
-- 
cgit v1.2.1