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

syntactic changes for perl5.10 compatibility

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

53
fhem/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,32 +338,33 @@ 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) = @_;
return bless { return bless {
hash => $hash, hash => $hash,
loglevel => main::GetLogLevel($hash->{NAME},5), loglevel => main::GetLogLevel($hash->{NAME},5),
}, $class; }, $class;
}
sub data_write {
my ( $self, $buf ) = @_;
main::Log ($self->{loglevel}, ">".join(",",map{sprintf"%02x",ord$_}split//,$buf));
main::DevIo_SimpleWrite($self->{hash},$buf,undef);
}
sub data_read {
my ( $self, $bytes ) = @_;
my $string = main::DevIo_SimpleRead($self->{hash});
if (defined $string ) {
main::Log ($self->{loglevel},"<".join(",",map{sprintf"%02x",ord$_}split//,$string));
}
return $string;
}
} }
sub data_write {
my ( $self, $buf ) = @_;
main::Log ($self->{loglevel}, ">".join(",",map{sprintf"%02x",ord$_}split//,$buf));
main::DevIo_SimpleWrite($self->{hash},$buf,undef);
}
sub data_read {
my ( $self, $bytes ) = @_;
my $string = main::DevIo_SimpleRead($self->{hash});
if (defined $string ) {
main::Log ($self->{loglevel},"<".join(",",map{sprintf"%02x",ord$_}split//,$string));
}
return $string;
}
package main;
sub sub
FRM_i2c_observer FRM_i2c_observer
{ {