diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-04-28 17:32:54 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-04-28 23:14:58 +0200 |
| commit | 0e0cb26ccbaf2e03652338ef54fdcf6d3133f891 (patch) | |
| tree | 71559d7de83ae396b5b2b8b78194c7a18b108ce5 /tools | |
| parent | aa8f011bc60bdf7741534a8ca3c06ddbba5a90c8 (diff) | |
| download | drakx-0e0cb26ccbaf2e03652338ef54fdcf6d3133f891.tar drakx-0e0cb26ccbaf2e03652338ef54fdcf6d3133f891.tar.gz drakx-0e0cb26ccbaf2e03652338ef54fdcf6d3133f891.tar.bz2 drakx-0e0cb26ccbaf2e03652338ef54fdcf6d3133f891.tar.xz drakx-0e0cb26ccbaf2e03652338ef54fdcf6d3133f891.zip | |
perl_checker cleanups
Diffstat (limited to 'tools')
| -rwxr-xr-x | tools/install-xml-file-list | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tools/install-xml-file-list b/tools/install-xml-file-list index 6d6f84c0b..c7bed75c7 100755 --- a/tools/install-xml-file-list +++ b/tools/install-xml-file-list @@ -19,6 +19,7 @@ if ($>) { $ENV{PATH} = "/sbin:/usr/sbin:$ENV{PATH}"; } +my $verbose; #$verbose = 1; my $initial_dir = cwd(); @@ -149,12 +150,12 @@ sub collect_needed_libraries { @to_check = (); } } -sub install_needed_libraries { +sub install_needed_libraries() { copy_files('', $DEST, [ keys %needed_libraries ], '', '--dereference'); } sub collect_needed_perl_files { - my ($local_rep, $dest, @scripts) = @_; + my ($local_rep, @scripts) = @_; my (%local, %global); foreach my $script (@scripts) { @@ -311,7 +312,7 @@ sub install { @files = @text_l; warn "collect-perl-files $local $to @files ($env->{filter}{command})\n"; - my ($local_perl_files, $global_perl_files) = collect_needed_perl_files($local, $to, @files); + my ($local_perl_files, $global_perl_files) = collect_needed_perl_files($local, @files); warn "collect-perl-files gave: ", join(' ', @$local_perl_files), "\n"; # warn " and: ", join(' ', @$global_perl_files), "\n"; copy_and_filter($local =~ m!/! ? $local : "$working_dir/$local", "$DEST$to", $local_perl_files, $env->{filter}, '', '--dereference'); |