98_BOSEST.pm - perl Meldung wegen uninitialized

[betateilchen]

Folgende PERL Meldung

Code Auswählen Erweitern


2017.04.25 13:41:01 3: BOSEST: BOSE SoundTouch v2.1.0
Use of uninitialized value $val in split at ./FHEM/98_BOSEST.pm line 1185.


kommt daher, dass

Code Auswählen Erweitern


sub BOSEST_deleteOldTTSFiles {
    my ($hash) = @_;
    my ($err, $val) = getKeyValue("BOSEST_tts_files");
    my @ttsFiles = split(",", $val);


in $val "undef" ist, wenn es den Key BOSEST_tts_files überhaupt nicht gibt.
Man sollte eine entsprechende Prüfung einbauen, bevor man auf $val zugreift.