From aa8f011bc60bdf7741534a8ca3c06ddbba5a90c8 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 28 Apr 2016 17:30:09 +0200 Subject: supplement blacklist --- tools/install-xml-file-list | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'tools/install-xml-file-list') 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