Added a bit more logging to the Database->mark_active method.

Signed-off-by: Digimer <digimer@alteeve.ca>

Anvil/Tools/Database.pm

@@ -15379,10 +15379,13 @@ sub mark_active
 		return(0);
 	}
 	
+	my $caller = $ENV{_};
+	$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { 'caller' => $caller }});
+	
 	# Record that we're using each available striker DB UUID.
 	foreach my $uuid (sort {$a cmp $b} keys %{$anvil->data->{cache}{database_handle}})
 	{
-		my $state_name = "db_in_use::".$uuid."::".$$."::".$ENV{_};
+		my $state_name = "db_in_use::".$uuid."::".$$."::".$caller;
 		$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { 
 			set        => $set,
 			state_name => $state_name,

tools/anvil-daemon

@@ -818,6 +818,7 @@ AND
 			if (not exists $anvil->data->{pids}{$state_pid})
 			{
 				# Reap the 'db_is_use'.
+				$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 1, list => { state_name => $state_name }});
 				$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, priority => "alert", key => "warning_0140", variables => { 
 					db       => $anvil->Get->host_name_from_uuid({host_uuid => $db_uuid})." (".$db_uuid.")",
 					pid      => $state_pid,