Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-07 22:29:19 +00:00
Code

Small CommandReload bug fixed

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@569 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2010-01-29 07:37:47 +00:00
parent 5374aa5550
commit 4d39d2c67c
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fhem.pl
View File

@ -159,7 +159,7 @@ my $nextat; # Time when next timer will be triggered.
my $intAtCnt=0;
my %duplicate; # Pool of received msg for multi-fhz/cul setups
my $duplidx=0; # helper for the above pool
my $cvsid = '$Id: fhem.pl,v 1.100 2010-01-21 19:29:47 m_fischer Exp $';
my $cvsid = '$Id: fhem.pl,v 1.101 2010-01-29 07:37:47 rudolfkoenig Exp $';
my $namedef =
"where <name> is either:\n" .
"- a single device name\n" .
@ -1317,9 +1317,10 @@ CommandReload($$)
no strict "refs";
eval {
my $ret=do "$file";
if (!$ret) {
Log 1,"Error:Modul $param deactivated:\n $@";
return "$@";
if(!$ret) {
Log 1,"Error:Modul $param deactivated:\n $@";
use strict "refs";
return "$@";
}
# Get the name of the initialize function. This may differ from the
@ -1334,12 +1335,10 @@ CommandReload($$)
$ret = &{ "${fnname}_Initialize" }(\%hash);
$m = $fnname;
};
if($@) {
return "$@";
}
use strict "refs";
return "$@" if($@);
my ($defptr, $ldata);
if($modules{$m}) {
$defptr = $modules{$m}{defptr};