* Update installation list with required modules

* Remove unused/doubled provided external perl moduls

1 files changed, 6 insertions, 8 deletions

diff --git a/bin/xxvd b/bin/xxvd
index 7202bcc..e761088 100755
--- a/bin/xxvd
+++ b/bin/xxvd
@@ -35,8 +35,6 @@ my $PATHS = {
 # -------------------------------
 
 use Tools;
-use File::Find;
-use File::Basename;
 use POSIX qw(locale_h);
 use Cwd 'abs_path';
 use Locale::gettext;
@@ -151,13 +149,12 @@ my @PARAMETER = @ARGV;
 # General ist'n spezi
 $MODULES->{'XXV::MODULES::General'}->{MOD} = &module;
 
-# Try to use the Requirments
+# Try to eval requirements
 map {
     eval "use $_";
     warn("\nCouldn't load modul: $_\nPlease install this modul on your system:\nperl -MCPAN -e 'install $_'") if($@);
 } keys %{$MODULES->{'XXV::MODULES::General'}->{MOD}->{Prereq}};
 
-
 # Options
 GetOptions (
     "configfile=s" => \$PATHS->{DEFINED_CFGFILE}, # numeric
@@ -518,17 +515,18 @@ sub quit {
 # ------------------
     my $ret = shift || 0;
 
-    debug qq|--------------------------------------------------|;
-    debug sprintf(qq|----- XXVD System %15s ended : %2s -----|, &getVersion,$ret);
-    debug qq|--------------------------------------------------|;
+    unlink $PATHS->{PIDFILE} if -e $PATHS->{PIDFILE};
 
     &toCleanUp();
-    unlink $PATHS->{PIDFILE} if -e $PATHS->{PIDFILE};
 
     $SIG{'TERM'}=sub {};
     # remove any depends process like preview encoder for recordings
     &killfam('TERM',$$);
 
+    debug qq|--------------------------------------------------|;
+    debug sprintf(qq|----- XXVD System %15s ended : %2s -----|, &getVersion,$ret);
+    debug qq|--------------------------------------------------|;
+
     exit($ret);
 }