summaryrefslogtreecommitdiffstats
path: root/tools/install-xml-file-list
diff options
context:
space:
mode:
Diffstat (limited to 'tools/install-xml-file-list')
-rwxr-xr-xtools/install-xml-file-list6
1 files changed, 3 insertions, 3 deletions
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;