Remove unused stuff

1 files changed, 2 insertions, 6 deletions

diff --git a/emi b/emi
index 790ec52..34e4165 100755
--- a/emi
+++ b/emi
@@ -28,16 +28,12 @@
 # PREFIX : sprintf "$year%02d%02d%02d%02d%02d.$user.$host.${$}_", $mon, $mday, $hour, $min, $sec;
 
 use strict;
-use File::Path qw(make_path);
-use Iurt::Config qw(config_usage config_init get_author_email get_mandatory_arch);
+use Iurt::Config qw(config_usage config_init);
 use Iurt::Process qw(check_pid);
-use Iurt::Mail qw(sendmail);
 use Iurt::Queue qw(get_upload_tree_state);
 use Iurt::Util qw(plog_init plog);
 use Iurt::Emi qw(find_prefixes_ready_to_upload upload_prefix_in_media);
-use Data::Dumper;
-use MDK::Common qw(cat_ if_ find touch);
-use MDK::Common::DataStructure qw(difference2);
+use MDK::Common qw(cat_ touch);
 
 my %run;
 my $program_name = 'emi';