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