From a1d5194939faf6e27a18feede4c40a5fdd0a6d25 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 16 Sep 2016 13:39:38 +0200
Subject: blacklist some basic packages

they are not parsable by perl_checker and thus end in every project
blacklist, so ...

AutoLoader
B
Compress::Gzip
Compress::Raw::Zlib
Config::IniFiles
Convert::ASN1
DateTime
Digest::base
Digest::Perl::MD5
encoding
Errno
Exporter::Heavy
Exporter::Tiny
ExtUtils::MakeMaker
File::Copy
File::Copy::Recursive
File::Find
File::FnMatch
File::GlobMapper
FileHandle
File::MimeInfo::Magic
File::NCopy
File::Path
File::Slurp
File::Sync
File::Temp
Gtk2::Gdk::Keysyms
Hash::Util::FieldHash
HTTP::Message
HTTP::Request::Common
IO::Compress::Base::Common
IO::Compress::Gzip
IO::File
IO::Handle
IO::Pipe
IO::Socket::INET
IO::Socket::IP
IO::Socket::SSL
IO::Uncompress::Gunzip
Libconf::Glueconf
Libconf::Templates::Generic::KeyValue
List::MoreUtils
LWP::UserAgent
MDV::Distribconf::Build
MIME::Base64
MIME::Words
Net::DBus::Binding::Introspector
Net::DBus::Binding::Iterator
Net::DBus::RemoteObject
Net::DBus::Test::MockIterator
Net::HTTP
Net::HTTP::Methods
Net::LDAP
Net::LDAP::Constant
Net::LDAP::Control
Net::LDAP::Filter
Net::LDAP::Intermediate
Net::LDAP::Schema
Net::LDAP::Util
Net::SSL
overload
parent
Perl::Tidy
Pod::Usage
String::Escape
Symbol
Sys::Syslog
Term::ReadKey
Test::More
Text::ParseWords
Text::Wrap
Time::ZoneInfo
URI::Escape
XML::LibXML::AttributeHash
XML::LibXML::Boolean
XML::LibXML::Error
XML::LibXML::Literal
XML::LibXML::NodeList
XML::LibXML::Number
XML::Parser
XML::Simple
XML::Writer
---
 NEWS        |  1 +
 src/tree.ml | 18 +++++++++++++++++-
 2 files changed, 18 insertions(+), 1 deletion(-)

diff --git a/NEWS b/NEWS
index ae1fe0e..23bb7e2 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,4 @@
+- blacklist the usual (module) suspects
 - recognize "bytes", "open" & "constant" pragmas
 
 Version 1.2.28 - 16 September 2016, by Thierry Vignaud
diff --git a/src/tree.ml b/src/tree.ml
index b843b5c..ef89c2c 100644
--- a/src/tree.ml
+++ b/src/tree.ml
@@ -177,7 +177,23 @@ let get_exported t =
 
 let uses_external_package = function
   | "Exporter" | "bytes" | "constant" | "diagnostics" | "feature" | "lib" | "open" | "strict" | "vars" | "warnings" | "Storable"
-  | "Config" | "Socket" | "IO::Socket" | "DynaLoader" | "Data::Dumper" | "Time::localtime" | "Expect" -> true
+  | "AutoLoader" | "B" | "Compress::Raw::Zlib" | "Config" | "Config::IniFiles" | "Convert::ASN1"
+  | "DateTime" | "DynaLoader" | "Data::Dumper" | "Digest::base" | "Digest::Perl::MD5" | "encoding" | "Errno"
+  | "Expect" | "Exporter::Heavy" | "Exporter::Tiny" | "ExtUtils::MakeMaker"
+  | "File::Basename" | "File::Copy" | "File::Copy::Recursive" | "File::Find" | "File::FnMatch"
+  | "File::GlobMapper" | "File::MimeInfo::Magic" | "File::NCopy" | "File::Path" | "File::Slurp" | "File::Sync" | "File::Temp" | "FileHandle"
+  | "Gtk2::Gdk::Keysyms" | "Hash::Util::FieldHash" | "HTTP::Message" | "HTTP::Request::Common"
+  | "IO::Compress::Base::Common" | "IO::Compress::Gzip" | "IO::File" | "IO::Handle" | "IO::Pipe" | "IO::Socket" | "IO::Socket::INET" | "IO::Socket::IP"
+  | "IO::Socket::SSL" | "IO::Uncompress::Gunzip"
+  | "Libconf::Glueconf" | "Libconf::Templates::Generic::KeyValue"
+  | "List::MoreUtils" | "LWP::UserAgent" | "MDV::Distribconf::Build" | "MIME::Base64" | "MIME::Words"
+  | "Net::DBus::Binding::Introspector" | "Net::DBus::Binding::Iterator" | "Net::DBus::RemoteObject" | "Net::DBus::Test::MockIterator"
+  | "Net::HTTP" | "Net::HTTP::Methods" | "Net::LDAP" | "Net::LDAP::Constant" | "Net::LDAP::Control" | "Net::LDAP::Filter" | "Net::LDAP::Intermediate"
+  | "Net::LDAP::Schema" | "Net::LDAP::Util" | "Net::SSL"
+  | "overload" | "parent" | "Perl::Tidy" | "Pod::Usage" | "Socket" | "String::Escape" | "Symbol" | "Sys::Syslog"
+  | "Term::ReadKey" | "Test::More" | "Text::ParseWords" | "Text::Wrap" | "Time::localtime" | "Time::ZoneInfo" | "URI::Escape"
+  | "XML::LibXML::AttributeHash" | "XML::LibXML::Boolean" | "XML::LibXML::Error" | "XML::LibXML::Literal" | "XML::LibXML::NodeList" | "XML::LibXML::Number"
+  | "XML::Parser" | "XML::Simple" | "XML::Writer" -> true
   | _ -> false
 
 let get_uses t =
-- 
cgit v1.2.1