From d85efb607ab69a297bd5168c68aba1d217aefd3b Mon Sep 17 00:00:00 2001
From: justme-1968 <justme-1968@users.noreply.github.com>
Date: Sat, 18 Jun 2016 10:59:34 +0000
Subject: [PATCH] 37_fakeRoku.pm: avoid undef perl waring

git-svn-id: https://svn.fhem.de/fhem/trunk@11686 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/37_fakeRoku.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/37_fakeRoku.pm b/fhem/FHEM/37_fakeRoku.pm
index c2183a5f7..252a5e452 100644
--- a/fhem/FHEM/37_fakeRoku.pm
+++ b/fhem/FHEM/37_fakeRoku.pm
@@ -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;
 
       }