From 372dfd67fa982250daf452ad0a4803c8c80ef370 Mon Sep 17 00:00:00 2001
From: KernSani <KernSani@users.noreply.github.com>
Date: Mon, 2 Apr 2018 15:54:34 +0000
Subject: [PATCH] 98_freezemon.pm: Unwrap Log3 when disabled

git-svn-id: https://svn.fhem.de/fhem/trunk@16534 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_freezemon.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/98_freezemon.pm b/fhem/FHEM/98_freezemon.pm
index 4ebc05e61..64f7272bb 100644
--- a/fhem/FHEM/98_freezemon.pm
+++ b/fhem/FHEM/98_freezemon.pm
@@ -22,6 +22,7 @@
 #
 ##############################################################################
 # 	  Changelog:
+#		0.0.19:	unwrap Log3 function when set inactive
 #		0.0.18:	fixed unnecessary call of blocking function
 #		0.0.17:	fixed Warning when fm_logFile is not maintained
 #				Freeze-Handling non-blocking
@@ -85,7 +86,7 @@ use Time::HiRes qw(tv_interval);
 use B qw(svref_2object);
 use Blocking;
 
-my $version  = "0.0.18";
+my $version  = "0.0.19";
 my @logqueue = ();
 
 ###################################
@@ -438,6 +439,9 @@ sub freezemon_Set($@) {
         RemoveInternalTimer($hash);
         readingsSingleUpdate( $hash, "state", "inactive", 1 );
         $hash->{helper}{DISABLED} = 1;
+		my $status = Log3( "", 100, "" );
+        Log3( "", 0, "[Freezemon] $name: Unwrapping Log3" );
+        *main::Log3 = $hash->{helper}{Log3};
     }
     elsif ( $cmd eq "active" ) {
         if ( IsDisabled($name) ) {
@@ -594,6 +598,9 @@ sub freezemon_Attr($) {
                 RemoveInternalTimer($hash);
                 readingsSingleUpdate( $hash, "state", "inactive", 1 );
                 $hash->{helper}{DISABLED} = 1;
+				my $status = Log3( "", 100, "" );
+				Log3( "", 0, "[Freezemon] $name: Unwrapping Log3" );
+				*main::Log3 = $hash->{helper}{Log3};
             }
             elsif ( $aVal == 0 ) {
                 freezemon_start($hash);