From aa8f011bc60bdf7741534a8ca3c06ddbba5a90c8 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 28 Apr 2016 17:30:09 +0200
Subject: supplement blacklist

---
 tools/.perl_checker         | 3 +++
 tools/install-xml-file-list | 6 +++---
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/tools/.perl_checker b/tools/.perl_checker
index f5113db82..fb1d604c4 100644
--- a/tools/.perl_checker
+++ b/tools/.perl_checker
@@ -5,8 +5,11 @@ constant
 Cwd
 Digest::base
 Encode
+FileHandle
 File::Path
 File::Sync
 Gtk2::Gdk::Keysyms
 IO::Handle
 Pod::Usage
+XML::Parser
+XSLoader
diff --git a/tools/install-xml-file-list b/tools/install-xml-file-list
index b5413a1ab..6d6f84c0b 100755
--- a/tools/install-xml-file-list
+++ b/tools/install-xml-file-list
@@ -92,7 +92,7 @@ sub valid_cond {
 
 sub add_to_env {
     my ($env, $tag, $attr) = @_;
-    my %env = map_each { $::a => +{%$::b} } %$env;
+    my %env = map_each { $::a => +{ %$::b } } %$env;
     foreach (keys %$attr) {
 	!$env{$tag}{$_} or die qq(overriding attribute <$tag $_="$env{$tag}{$_}"> with $_="$attr->{$_}"\n); 
 	$env{$tag}{$_} = $attr->{$_};
@@ -260,8 +260,8 @@ sub install {
     } elsif ($expand eq 'binary') {
 	$disallow_from_dir->();
 	my @PATH = qw(/usr/sbin /usr/bin /usr/X11R6/bin);
-	unshift(@PATH, "/bin") unless ( -l "/bin" );
-	unshift(@PATH, "/sbin") unless ( -l "/sbin" );
+	unshift(@PATH, "/bin") unless -l "/bin";
+	unshift(@PATH, "/sbin") unless -l "/sbin";
 	foreach my $name (map { expand_macros($_) } @text_l) {
 	    my @l = grep { -x $_ } map { "$_/$name" } @PATH;
 	    @l or error("can't find binary $name"), next;
-- 
cgit v1.2.1