summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2016-04-28 17:32:54 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-04-28 23:14:58 +0200
commit0e0cb26ccbaf2e03652338ef54fdcf6d3133f891 (patch)
tree71559d7de83ae396b5b2b8b78194c7a18b108ce5 /tools
parentaa8f011bc60bdf7741534a8ca3c06ddbba5a90c8 (diff)
downloaddrakx-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-xtools/install-xml-file-list7
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');