X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FDestroyWarning.pm;h=998bc5d158e2d71af17be3168976d6665ec87253;hb=7474ed3b192693baa28d2f52de502f0ec3e8ac4e;hp=fb5b2971a56bbe5b096bd4237aeb2e2978b36e3a;hpb=a3018bd384d02955c5a442cf2fd1ac654393a3c8;p=dbsrgits%2FDBIx-Class.git

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