summaryrefslogtreecommitdiffstats
path: root/src/tree.ml
diff options
context:
space:
mode:
Diffstat (limited to 'src/tree.ml')
-rw-r--r--src/tree.ml18
1 files changed, 17 insertions, 1 deletions
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 =