diff options
| -rw-r--r-- | tools/.perl_checker | 3 | ||||
| -rwxr-xr-x | 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; |