[patch] 98_BOSEST.pm - perl Warnung beim FHEM Start vermeiden

[betateilchen]

Um diese Warnung

Code Auswählen Erweitern



2017.11.15 13:18:25 1: PERL WARNING: Use of uninitialized value $val in split at ./FHEM/98_BOSEST.pm line 1188.



beim FHEM Start zu verhindern, schlage ich folgenden patch vor:

Code Auswählen Erweitern



Index: 98_BOSEST.pm
===================================================================
--- 98_BOSEST.pm        (Revision 15433)
+++ 98_BOSEST.pm        (Arbeitskopie)
@@ -1185,6 +1185,7 @@
sub BOSEST_deleteOldTTSFiles {
     my ($hash) = @_;
     my ($err, $val) = getKeyValue("BOSEST_tts_files");
+    return undef unless defined($val);
     my @ttsFiles = split(",", $val);
     my $ttsDir = AttrVal($hash->{NAME}, "ttsDirectory", "");