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

Changed select badf detection from english string to number

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@743 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2010-10-27 16:51:32 +00:00
parent 348535795c
commit a8653b4071
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fhem.pl
View File

@ -162,7 +162,7 @@ my $nextat; # Time when next timer will be triggered.
my $intAtCnt=0; my $intAtCnt=0;
my %duplicate; # Pool of received msg for multi-fhz/cul setups my %duplicate; # Pool of received msg for multi-fhz/cul setups
my $duplidx=0; # helper for the above pool my $duplidx=0; # helper for the above pool
my $cvsid = '$Id: fhem.pl,v 1.114 2010-10-24 16:08:48 rudolfkoenig Exp $'; my $cvsid = '$Id: fhem.pl,v 1.115 2010-10-27 16:51:32 rudolfkoenig Exp $';
my $namedef = my $namedef =
"where <name> is either:\n" . "where <name> is either:\n" .
"- a single device name\n" . "- a single device name\n" .
@ -320,7 +320,7 @@ while (1) {
vec($rin, $server->fileno(), 1) = 1; vec($rin, $server->fileno(), 1) = 1;
foreach my $p (keys %selectlist) { foreach my $p (keys %selectlist) {
vec($rin, $selectlist{$p}{FD}, 1) = 1 vec($rin, $selectlist{$p}{FD}, 1) = 1;
} }
foreach my $c (keys %client) { foreach my $c (keys %client) {
vec($rin, fileno($client{$c}{fd}), 1) = 1; vec($rin, fileno($client{$c}{fd}), 1) = 1;
@ -334,10 +334,11 @@ while (1) {
CommandShutdown(undef, undef) if($sig_term); CommandShutdown(undef, undef) if($sig_term);
if($nfound < 0) { if($nfound < 0) {
next if ($! == 0); my $err = int($!);
next if ($err == 0);
# Handling "Bad file descriptor". This is a programming error. # Handling "Bad file descriptor". This is a programming error.
if($! eq "Bad file descriptor") { if($! == $err) { # BADF, don't want to "use errno.ph"
my $nbad = 0; my $nbad = 0;
foreach my $p (keys %selectlist) { foreach my $p (keys %selectlist) {
my ($tin, $tout) = ('', ''); my ($tin, $tout) = ('', '');