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

37_fakeRoku.pm: avoid undef perl waring

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@11686 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
justme-1968 2016-06-18 10:59:34 +00:00
parent e1c04b6e7f
commit d85efb607a
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fhem/FHEM/37_fakeRoku.pm
View File

@ -430,7 +430,10 @@ fakeRoku_Parse($$;$$$)
}
}
if( !$params->{MAN} || $params->{MAN} ne '"ssdp:discover"' ) {
if( !$params->{MAN} ) {
Log3 $name, 5, "$name: ignoring broadcast M-Search without MAN";
return undef;
} elsif( $params->{MAN} ne '"ssdp:discover"' ) {
Log3 $name, 5, "$name: ignoring broadcast M-Search with MAN $params->{MAN}";
return undef;
}
@ -525,7 +528,7 @@ fakeRoku_Parse($$;$$$)
$xml->{app}[$i] = { id => $i+1, content => $favourites[$i], };
}
}
#my $body = '<?xml version="1.0" encoding="utf-8" ?>';
my $body .= XMLout( $xml, KeyAttr => { }, RootName => 'apps' );
#$body =~ s/\n/\r\n/g;
@ -536,7 +539,6 @@ fakeRoku_Parse($$;$$$)
'Content-Length' => length($body), } );
$ret .= "\r\n";
$ret .= $body;
Log 1, $ret;
}