FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2024-12-22 15:51:51 +00:00
Code Issues Releases Wiki Activity

SMUtils.pm: new version 1.28.1

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@29416 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2024-12-08 16:49:29 +00:00
parent b4a0c3eceb
commit 47e0bea16b
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
fhem/lib/FHEM/SynoModules/SMUtils.pm
View File

@ -26,6 +26,7 @@
#########################################################################################################################
# Version History
# 1.28.1 08.12.2024 fix delHashRefDeep
# 1.28.0 07.12.2024 add function delHashRefDeep
# 1.27.4 05.12.2024 expand evaljson for SolarForecast
# 1.27.3 26.10.2024 compatibility to SSCam V 9.12.0
@ -62,7 +63,7 @@ use FHEM::SynoModules::ErrCodes qw(:all); # Erro
use GPUtils qw( GP_Import GP_Export );
use Carp qw(croak carp);
use version 0.77; our $VERSION = version->declare('1.28.0');
use version 0.77; our $VERSION = version->declare('1.28.1');
use Exporter ('import');
our @EXPORT_OK = qw(
@ -306,13 +307,15 @@ return ($errorcode, $content);
###############################################################################
sub delHashRefDeep {
my $href = shift // carp $carpnohash && return;
for my $key (keys %{$href}) {
if (ref $href->{$key} eq 'HASH') {
delHashRefDeep ($href->{$key});
}
delete $href->{$key};
if (ref $href eq 'HASH') {
for my $key (keys %{$href}) {
if (ref $href->{$key} eq 'HASH') {
delHashRefDeep ($href->{$key});
}
delete $href->{$key};
}
}
$href = undef; # Optional: Garbage Collection erzwingen