dselect: Remove unused diagnostics pragmas

dselect/methods/ftp/install

@@ -20,7 +20,6 @@ use strict;
 use warnings;
 
 use vars qw(%config $ftp);
-#use diagnostics;
 
 eval q{
     use Net::FTP;

dselect/methods/ftp/setup

@@ -20,7 +20,6 @@ use strict;
 use warnings;
 
 use vars qw(%config);
-#use diagnostics;
 
 eval 'use Net::FTP;';
 if ($@) {

dselect/methods/ftp/update

@@ -19,8 +19,6 @@
 use strict;
 use warnings;
 
-#use diagnostics;
-
 eval 'use Net::FTP;';
 if ($@) {
     print STDERR "Please install the 'perl' package if you want to use the\n" .