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

2.nd try on checking the correct case

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@164 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2008-04-28 17:27:14 +00:00
parent cdf61a5076
commit 142caf4cbb
1 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
fhem/fhem.pl
View File

@ -138,7 +138,7 @@ my %intAt; # Internal at timer hash.
my $intAtCnt=0;
my $reread_active = 0;
my $AttrList = "room comment";
my $cvsid = '$Id: fhem.pl,v 1.40 2008-04-28 16:26:10 rudolfkoenig Exp $';
my $cvsid = '$Id: fhem.pl,v 1.41 2008-04-28 17:27:14 rudolfkoenig Exp $';
$init_done = 0;
@ -1248,20 +1248,23 @@ CommandReload($$)
my $ret;
no strict "refs";
eval {
do "$file";
# Get the correct module case from the initialize function name. We need
# this as sometimes we live on a FAT fs with wrong case
foreach my $i (keys %main::) {
if($i =~ m/^(${m})_initialize$/i) {
$m = $1;
last;
}
}
$ret = &{ "${m}_Initialize" }(\%hash);
};
if($@) {
# Perhaps we have a "USB-Stick on the fritzbox" case problem:
my $olderr = $@;
if($olderr =~ m/Undefined subroutine/) {
$m = ($m =~ m/^[a-z]*$/) ? uc($m) : lc($m);
Log 2, "Retrying with $m";
eval { $ret = &{ "${m}_Initialize" }(\%hash); };
}
return $olderr if($@);
return "$@";
}
use strict "refs";