summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tools/.perl_checker3
-rwxr-xr-xtools/install-xml-file-list6
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;