perl: Remove unused variables

Fixes Variables::ProhibitUnusedVariables.

Warned-by: perlcritic

3 files changed, 2 insertions, 4 deletions

diff --git a/dselect/methods/Dselect/Ftp.pm b/dselect/methods/Dselect/Ftp.pm
index dc0cc3a53..6d6376047 100644
--- a/dselect/methods/Dselect/Ftp.pm
+++ b/dselect/methods/Dselect/Ftp.pm
@@ -47,7 +47,7 @@ sub read_config {
   $code = <$vars_fh>;
   close $vars_fh;
 
-  my $VAR1;
+  my $VAR1; ## no critic (Variables::ProhibitUnusedVariables)
   $conf = eval $code;
   die "Couldn't eval $vars content : $@\n" if ($@);
   if (ref($conf) =~ /HASH/) {
diff --git a/dselect/methods/ftp/install b/dselect/methods/ftp/install
index de365e334..25b8378ec 100755
--- a/dselect/methods/ftp/install
+++ b/dselect/methods/ftp/install
@@ -65,7 +65,7 @@ if (-f "$methdir/md5sums") {
     die "Couldn't read file $methdir/md5sums";
   my $code = <$md5sums_fh>;
   close $md5sums_fh;
-  my $VAR1;
+  my $VAR1; ## no critic (Variables::ProhibitUnusedVariables)
   my $res = eval $code;
   if ($@) {
     die "Couldn't eval $methdir/md5sums content: $@\n";
diff --git a/dselect/methods/ftp/update b/dselect/methods/ftp/update
index bb3050c0b..048044b3f 100755
--- a/dselect/methods/ftp/update
+++ b/dselect/methods/ftp/update
@@ -218,8 +218,6 @@ if($@) {
     $exit = 1;
 };
 
-my $ans;
-
 if ($packages_modified) {	# don't clear if nothing changed
     print <<'EOM';