The real workaround for txn_scope_guard being called twice

[dbsrgits/DBIx-Class-Historic.git] / lib / DBIx / Class / CDBICompat / DestroyWarning.pm

diff --git a/lib/DBIx/Class/CDBICompat/DestroyWarning.pm b/lib/DBIx/Class/CDBICompat/DestroyWarning.pm
index fb5b297..2e29f02 100644 (file)
--- a/lib/DBIx/Class/CDBICompat/DestroyWarning.pm
+++ b/lib/DBIx/Class/CDBICompat/DestroyWarning.pm
@@ -1,9 +1,14 @@
-package DBIx::Class::CDBICompat::DestroyWarning;
+package # hide from PAUSE
+    DBIx::Class::CDBICompat::DestroyWarning;
 
 use strict;
 use warnings;
+use DBIx::Class::_Util 'detect_reinvoked_destructor';
+use namespace::clean;
 
 sub DESTROY {
+  return if &detect_reinvoked_destructor;
+
   my ($self) = @_;
   my $class = ref $self;
   warn "$class $self destroyed without saving changes to "