tests: Remove unused variables

* tests/directories.pm:
  - %diroutput
* tests/ftpserver.pl:
  - %exit_signal
* tests/test1135.pl:
  - @syms
  - %doc
  - %rem
* tests/test1167.pl:
  - %doc
  - %rem
* tests/tftpserver.pl:
  - %fork

Closes #16798

diff --git a/tests/directories.pm b/tests/directories.pm
index 238f7e03ebdb6ea722555d6fb08c6b52cf476beb..f2114d39053e2a9bad079d7a8d372b30d81ca4bf 100644 (file)
--- a/tests/directories.pm
+++ b/tests/directories.pm
@@ -212,7 +212,6 @@ sub ftp_createcontent {
   my $eol  = $$list{'eol'};
   my $list_ref = $$list{'files'};
 
-  my @diroutput;
   my @contentlist;
   if($type eq "unix") {
     for(@$list_ref) {

diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl
index d4cd0f4172c5b6d0931ceca2ff065cab3d5a9466..79c28301bdada859a0dc8527ac7e835970197205 100755 (executable)
--- a/tests/ftpserver.pl
+++ b/tests/ftpserver.pl
@@ -187,7 +187,6 @@ my $datasockf_conn = 'no';       # ['no','yes']
 # global vars used for signal handling
 #
 my $got_exit_signal = 0; # set if program should finish execution ASAP
-my $exit_signal;         # first signal handled in exit_signal_handler
 
 #**********************************************************************
 # Mail related definitions

diff --git a/tests/test1135.pl b/tests/test1135.pl
index d8f46ee3bad93dd5375f64b691b85d4d37f471c5..103594e7967347e31eaf4e1d10f1d5b0bcfabd5b 100755 (executable)
--- a/tests/test1135.pl
+++ b/tests/test1135.pl
@@ -68,10 +68,6 @@ my $verbose=0;
 my $summary=0;
 my $misses=0;
 
-my @syms;
-my %doc;
-my %rem;
-
 my @out;
 foreach my $f (@incs) {
     open H, "<$f" || die;

diff --git a/tests/test1167.pl b/tests/test1167.pl
index d180411a145934610c096a7f922c30c7ae8332b5..875f8c8b48965420c1f9663b5b933fd8b07797f4 100755 (executable)
--- a/tests/test1167.pl
+++ b/tests/test1167.pl
@@ -67,8 +67,6 @@ my $summary=0;
 my $misses=0;
 
 my @syms;
-my %doc;
-my %rem;
 
 sub scanenums {
     my ($file)=@_;

diff --git a/tests/tftpserver.pl b/tests/tftpserver.pl
index 98a284aaa389b548334c530026082eec49203387..862d21cd137c0c05f594d432cb19776f3ea990d7 100755 (executable)
--- a/tests/tftpserver.pl
+++ b/tests/tftpserver.pl
@@ -46,7 +46,6 @@ my $pidfile;
 my $portfile;
 my $logfile;
 my $srcdir;
-my $fork;
 
 my $flags  = "";
 my $path   = '.';