DBI dr handle cleared whilst still active during global destruction on perl 5.40

[einsibjarni]

OS: FreeBSD 14.2-RELEASE-p1
Perl version: 5.40

After upgrading perl from 5.36 to 5.40 we started seeing these warnings in logs:

2025-05-30T09:43:10Z [83137] [WARNING] [main] DBI dr handle 0x2b8f6f9bb900 cleared whilst still active during global destruction.

We found Perl/perl5#23306 (comment) and applied to our in-house perl code which seems to stop the warnings from appearing. It looks like a race condition in cleanup, during testing we sometimes got the warning, sometimes not. After applying the fix the warnings stop.

[matsduf]

@einsibjarni, thanks for the report.

Could you share the change that you did to get rid of the issue?

[einsibjarni]

Our scripts where very simple, no classes or even functions. We just added at the end of the scripts

END { 
	$dbh->disconnect;
	$dbh = undef;
}

We had statement handles, and I'm pretty sure that the issue is that when perl cleans up after the script exists, the warning comes if the db handle is cleaned up before the statement handle. That's why it didn't show up on every run