close sth's on Fatal to prevent error message

ZoneMinder · Feb 14, 2019 · 62bf7d5 · 62bf7d5
1 parent d3a8117
commit 62bf7d5
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/scripts/ZoneMinder/lib/ZoneMinder/Logger.pm b/scripts/ZoneMinder/lib/ZoneMinder/Logger.pm
@@ -696,10 +696,15 @@ sub error {
 }
 
 sub Fatal( @ ) {
-  fetch()->logPrint(FATAL, @_, caller);
+  my $this = fetch();
+  $this->logPrint(FATAL, @_, caller);
   if ( $SIG{TERM} and ( $SIG{TERM} ne 'DEFAULT' ) ) {
     $SIG{TERM}();
   }
+  if ( $$this{sth} ) {
+    $$this{sth}->finish();
+    $$this{sth} = undef;
+  }
   # I think if we don't disconnect we will leave sockets around in TIME_WAIT
   ZoneMinder::Database::zmDbDisconnect();
   exit(-1);