FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-16 10:46:03 +00:00
Code Issues Releases Wiki Activity

55_InfoPanel.pm: fix perl 5.24 compatibilty (each on hash)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@12506 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2016-11-05 13:38:20 +00:00
parent 58c5d618ae
commit e277d74837
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fhem/FHEM/55_InfoPanel.pm
View File

@ -225,8 +225,8 @@ sub btIP_Get {
}
when ("overrides") {
last if(!defined($defs{$name}{fhem}{override}));
while ( my ($key, $value) = each($defs{$name}{fhem}{override}) ) {
$ret .= "$key => $value \n";
foreach my $key ( keys $defs{$name}{fhem}{override} ) {
$ret .= "$key => $defs{$name}{fhem}{override}{$key} \n";
}
}
default {
@ -1160,9 +1160,11 @@ sub btIP_evalLayout {
when("pop") {
return unless $pstackcount;
while ( my ($key, $value) = each($pstack{$pstackcount}) ) {
$params{$key} = $value;
foreach my $key ( keys $pstack{$pstackcount} ) {
# Debug "pop key: $key, value: $pstack{$pstackcount}{$key}";
$params{$key} = $pstack{$pstackcount}{$key};
}
delete $pstack{$pstackcount};
$pstackcount--;
}
@ -1179,8 +1181,9 @@ sub btIP_evalLayout {
when("push") {
$pstackcount++;
while ( my ($key, $value) = each(%params) ) {
$pstack{$pstackcount}{$key} = $value;
foreach my $key ( keys %params ) {
# Debug "push key: $key, value: $params{$key}";
$pstack{$pstackcount}{$key} = $params{$key};
}
}