Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

98_help.pm: fix case sensitive problems in cmds hash #74903

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@18341 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2019-01-19 17:24:30 +00:00
parent 240de302c4
commit 4e0eb75031
1 changed files with 29 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
FHEM/98_help.pm
View File

@ -255,7 +255,7 @@ sub cref_fill_list(){
foreach my $mod (sort keys %mods) { foreach my $mod (sort keys %mods) {
my %h = ( Fn => undef, my %h = ( Fn => undef,
Hlp => "Command $mod not loaded. Use \"help $mod\" for more help" ); Hlp => "Command $mod not loaded. Use \"help $mod\" for more help" );
$cmds{$mod} = \%h if ( ($modIdx{$mod} eq "command") && !(defined($cmds{$mod})) ); $cmds{lc($mod)} = \%h if ( ($modIdx{$mod} eq "command") && !(defined($cmds{lc($mod)})) );
} }
} }
@ -264,8 +264,8 @@ sub cref_findInfo {
my ($l,@line,$found,$text); my ($l,@line,$found,$text);
my ($err,@text) = FileRead({FileName => "$modPath/MAINTAINER.txt", ForceType => 'file'}); my ($err,@text) = FileRead({FileName => "$modPath/MAINTAINER.txt", ForceType => 'file'});
foreach $l (@text) { foreach $l (@text) {
@line = split(" ", $l,3); @line = split("[ \t][ \t]*", $l,3);
$found = ($l =~ m/^([0-9][0-9])_$mod\.pm$/i); $found = ($l =~ m/_$mod/i);
last if ($found); last if ($found);
} }
if($found) { if($found) {