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

syntactic changes for perl5.10 compatibility

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@2771 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
ntruchsess 2013-02-19 21:56:53 +00:00
parent 519a7be447
commit 74f54ff0b8
1 changed files with 27 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
FHEM/10_FRM.pm
View File

@ -228,17 +228,17 @@ sub FRM_DoInit($) {
my $onewirepins = $device->{metadata}{onewire_pins};
$main::defs{$name}{onewire_pins} = join(",", sort{$a<=>$b}(@$onewirepins));
my @analog_resolutions;
foreach my $pin (sort{$a<=>$b}(keys $device->{metadata}{analog_resolutions})) {
foreach my $pin (sort{$a<=>$b}(keys %{$device->{metadata}{analog_resolutions}})) {
push @analog_resolutions,$pin.":".$device->{metadata}{analog_resolutions}{$pin};
}
$main::defs{$name}{analog_resolutions} = join(",",@analog_resolutions);
my @pwm_resolutions;
foreach my $pin (sort{$a<=>$b}(keys $device->{metadata}{pwm_resolutions})) {
foreach my $pin (sort{$a<=>$b}(keys %{$device->{metadata}{pwm_resolutions}})) {
push @pwm_resolutions,$pin.":".$device->{metadata}{pwm_resolutions}{$pin};
}
$main::defs{$name}{pwm_resolutions} = join(",",@pwm_resolutions);
my @servo_resolutions;
foreach my $pin (sort{$a<=>$b}(keys $device->{metadata}{servo_resolutions})) {
foreach my $pin (sort{$a<=>$b}(keys %{$device->{metadata}{servo_resolutions}})) {
push @servo_resolutions,$pin.":".$device->{metadata}{servo_resolutions}{$pin};
}
$main::defs{$name}{servo_resolutions} = join(",",@servo_resolutions);
@ -338,7 +338,7 @@ FRM_Client_Unassign($)
readingsSingleUpdate($dev,"state","defined",0);
}
package Firmata_IO {
package Firmata_IO;
sub new {
my ($class,$hash) = @_;
@ -362,7 +362,8 @@ package Firmata_IO {
}
return $string;
}
}
package main;
sub
FRM_i2c_observer