98_inotify.pm: better check for perl modules

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@18473 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
marvin78 2019-01-31 19:36:32 +00:00
parent c975e7213c
commit e0d3faf713

View File

@ -4,18 +4,37 @@ package main;
use strict;
use warnings;
use Linux::Inotify2;
use Data::Dumper;
my $missingModule = "";
eval { use Linux::Inotify2; };
unless($@) {
Log 4, "inotify - found Linux::Inotify2";
}
else {
Log 1, "inotify - unable to load Linux::Inotify2 module: $@. Please install with sudo apt-get install liblinux-inotify2-perl";
$missingModule = "Linux::Inotify2 ";
}
eval { use File::Find; };
unless($@) {
Log 4, "inotify - found File::Find";
}
else {
Log 1, "inotify - unable to load File::Find module: $@. Please install it.";
$missingModule = "File::Find ";
}
eval "use File::Find;1" or $missingModule .= "File::Find ";
#######################
# Global variables
my $version = "0.5.8";
my $version = "0.6.1";
our $inotify;
our @watch;