From 1fd866ec494d8e42964704210b590a60c9d3b152 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Mon, 29 Dec 2014 16:03:31 +0000
Subject: [PATCH] fhem.pl: check for bad regexp in deletereading (Forum #31165)

git-svn-id: https://svn.fhem.de/fhem/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])) {