diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-04-28 17:30:09 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-04-28 23:14:58 +0200 |
| commit | aa8f011bc60bdf7741534a8ca3c06ddbba5a90c8 (patch) | |
| tree | 48e98ea540b00174dbc579704dc9d2d5dc89260c | |
| parent | 7f320442488287d9ff76479648aefc985646366f (diff) | |
| download | drakx-aa8f011bc60bdf7741534a8ca3c06ddbba5a90c8.tar drakx-aa8f011bc60bdf7741534a8ca3c06ddbba5a90c8.tar.gz drakx-aa8f011bc60bdf7741534a8ca3c06ddbba5a90c8.tar.bz2 drakx-aa8f011bc60bdf7741534a8ca3c06ddbba5a90c8.tar.xz drakx-aa8f011bc60bdf7741534a8ca3c06ddbba5a90c8.zip | |
supplement blacklist
| -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; |