X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FDestroyWarning.pm;h=61d243c42a737bce0bbc7744236416c42705d737;hb=e1d9e578b84f642cb24181d0403b15ab78a9fda7;hp=2e29f02826f3a11fda5e813aca3d6ec67cf1ae80;hpb=7e175371f73976dae12fdebec4850832edcae580;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/lib/DBIx/Class/CDBICompat/DestroyWarning.pm b/lib/DBIx/Class/CDBICompat/DestroyWarning.pm
index 2e29f02..61d243c 100644
--- a/lib/DBIx/Class/CDBICompat/DestroyWarning.pm
+++ b/lib/DBIx/Class/CDBICompat/DestroyWarning.pm
@@ -3,11 +3,11 @@ package # hide from PAUSE
 
 use strict;
 use warnings;
-use DBIx::Class::_Util 'detect_reinvoked_destructor';
+use DBIx::Class::_Util 'detected_reinvoked_destructor';
 use namespace::clean;
 
 sub DESTROY {
-  return if &detect_reinvoked_destructor;
+  return if &detected_reinvoked_destructor;
 
   my ($self) = @_;
   my $class = ref $self;