FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-01 07:19:24 +00:00
Code Issues Releases Wiki Activity

WMBus: fix compatibility with perl version 5.10

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@8659 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
kaihs 2015-05-30 14:41:28 +00:00
parent 9ffa2eb7cd
commit 12ba7c20a1
1 changed files with 837 additions and 837 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fhem/FHEM/WMBus.pm
View File

@ -424,7 +424,7 @@ my %VIFInfo = (
unit => '', unit => '',
calcFunc => \&valueCalcNumeric, calcFunc => \&valueCalcNumeric,
}, },
VIF_OWNER_NO => { # Eigentumsnummer (used by Easymeter even though the standard allows this only for writung to a slave) VIF_OWNER_NO => { # Eigentumsnummer (used by Easymeter even though the standard allows this only for writing to a slave)
typeMask => 0b01111111, typeMask => 0b01111111,
expMask => 0b00000000, expMask => 0b00000000,
type => 0b01111001, type => 0b01111001,
@ -1021,7 +1021,7 @@ sub findVIF($$$) {
my $bias; my $bias;
if (defined $vifInfoRef) { if (defined $vifInfoRef) {
VIFID: foreach my $vifType ( keys $vifInfoRef ) { VIFID: foreach my $vifType ( keys %$vifInfoRef ) {
#printf "vifType $vifType VIF $vif typeMask $vifInfoRef->{$vifType}{typeMask} type $vifInfoRef->{$vifType}{type}\n"; #printf "vifType $vifType VIF $vif typeMask $vifInfoRef->{$vifType}{typeMask} type $vifInfoRef->{$vifType}{type}\n";