FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 12:49:34 +00:00
Code Issues Releases Wiki Activity

check modules for compiletime errors and deactivated it, if any

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@183 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
tdressler 2008-05-11 21:03:13 +00:00
parent 2682aa8ee6
commit b09f8b9a78
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fhem/fhem.pl
View File

@ -140,7 +140,7 @@ my %intAt; # Internal at timer hash.
my $intAtCnt=0; my $intAtCnt=0;
my $reread_active = 0; my $reread_active = 0;
my $AttrList = "room comment"; my $AttrList = "room comment";
my $cvsid = '$Id: fhem.pl,v 1.43 2008-05-11 17:27:01 tdressler Exp $'; my $cvsid = '$Id: fhem.pl,v 1.44 2008-05-11 21:03:13 tdressler Exp $';
$init_done = 0; $init_done = 0;
@ -1263,13 +1263,16 @@ CommandReload($$)
my $order = $1; my $order = $1;
Log 5, "Loading $file"; Log 5, "Loading $file";
my $ret;
no strict "refs"; no strict "refs";
# Get the correct module case from the initialize function name. We need # Get the correct module case from the initialize function name. We need
# this as sometimes we live on a FAT fs with wrong case # this as sometimes we live on a FAT fs with wrong case
eval { eval {
do "$file"; my $ret=do "$file";
if (!$ret) {
Log 1,"Error:Modul $param deactivated:\n $@";
return "$@";
}
foreach my $i (keys %main::) { foreach my $i (keys %main::) {
if($i =~ m/^(${m})_initialize$/i) { if($i =~ m/^(${m})_initialize$/i) {
$m = $1; $m = $1;