From 4a23a487d084059cbd5be2e340102f78d31c17a9 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 29 Dec 2014 16:03:31 +0000
Subject: [PATCH] fhem.pl: check for bad regexp in deletereading (Forum #31165)

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@7358 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/fhem.pl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index e11d563dd..2c4f5f482 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -1833,6 +1833,9 @@ CommandDeleteReading($$)
   my @a = split(" ", $def, 2);
   return "Usage: deletereading <name> <reading>\n$namedef" if(@a != 2);
 
+  eval { "" =~ m/$a[1]/ };
+  return "Bad regexp $a[1]: $@" if($@);
+
   %ntfyHash = ();
   my @rets;
   foreach my $sdev (devspec2array($a[0])) {