From e8a5d8fe372eca551fd35dca9dd08e940cb321f6 Mon Sep 17 00:00:00 2001
From: phenning <>
Date: Fri, 9 Feb 2018 10:26:31 +0000
Subject: [PATCH] 95_Babble.pm: Bugfix 1.09

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

diff --git a/fhem/FHEM/95_Babble.pm b/fhem/FHEM/95_Babble.pm
index 04b0789ec..c09bfc9fe 100644
--- a/fhem/FHEM/95_Babble.pm
+++ b/fhem/FHEM/95_Babble.pm
@@ -42,7 +42,7 @@ use JSON;      # imports encode_json, decode_json, to_json and from_json.
 my $babblelinkname   = "babbles";    # link text
 my $babblehiddenroom = "babbleRoom"; # hidden room
 my $babblepublicroom = "babble";     # public room
-my $babbleversion    = "1.08";
+my $babbleversion    = "1.09";
 
 my %babble_transtable_EN = ( 
     "ok"                =>  "OK",
@@ -1493,7 +1493,10 @@ sub Babble_antistupidity($) {
   
   my $name  = $hash->{NAME};
   my $regexp = $hash->{DATA}{"re_places"};
-  my $imax = int(@{$hash->{DATA}{"devs"}});
+  my $devs = $hash->{DATA}{"devs"};
+  return 
+    if( !defined($regexp) || !defined($devs) );
+  my $imax = int(@{$devs});
   for( my $i=0; $i<$imax; $i++){
     my $dev = lc($hash->{DATA}{"devs"}[$i]);
     Log 1,"[Babble] Baaaaah ! It is not a good idea to name a device $dev similar to a place in Babble"