From 0e0cb26ccbaf2e03652338ef54fdcf6d3133f891 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 28 Apr 2016 17:32:54 +0200
Subject: perl_checker cleanups

---
 tools/install-xml-file-list | 7 ++++---
 1 file 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');
-- 
cgit v1.2.1