tests: Remove unused variables

samueloph · dfandrich · commit 23f6a1abfd04 · 2025-03-22T11:12:29.000-07:00
* 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
@@ -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
@@ -187,7 +187,6 @@ BEGIN
 # 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
@@ -68,10 +68,6 @@
 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
@@ -67,8 +67,6 @@
 my $misses=0;
 
 my @syms;
-my %doc;
-my %rem;
 
 sub scanenums {
     my ($file)=@_;
diff --git a/tests/tftpserver.pl b/tests/tftpserver.pl
@@ -46,7 +46,6 @@ BEGIN
 my $portfile;
 my $logfile;
 my $srcdir;
-my $fork;
 
 my $flags  = "";
 my $path   = '.';

Original file line number	Diff line number	Diff line change
`@@ -187,7 +187,6 @@ BEGIN`
`187`	`187`	`# global vars used for signal handling`
`188`	`188`	`#`
`189`	`189`	`my $got_exit_signal = 0; # set if program should finish execution ASAP`
`190`		`-my $exit_signal; # first signal handled in exit_signal_handler`
`191`	`190`
`192`	`191`	`#**********************************************************************`
`193`	`192`	`# Mail related definitions`