Fixed typo in deletereadings

git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@2535 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2013-01-20 09:21:35 +00:00
parent dfb995dd06
commit 4054f09c3e

View File

@@ -1441,7 +1441,8 @@ CommandDeleteReading($$)
$a[0] = $sdev; $a[0] = $sdev;
my $readingspec= '^' . $a[1] . '$'; my $readingspec= '^' . $a[1] . '$';
foreach my $reading (grep { /$readingspec/ } keys ($defs{$sdev}{READINGS})) { foreach my $reading (grep { /$readingspec/ }
keys %{$defs{$sdev}{READINGS}} ) {
delete($defs{$sdev}{READINGS}{$reading}); delete($defs{$sdev}{READINGS}{$reading});
push @rets, "Deleted reading $reading for device $sdev"; push @rets, "Deleted reading $reading for device $sdev";
} }