X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass.pm;fp=lib%2FDBIx%2FClass.pm;h=33e84ce28f67bca274a2528e72daa2e0fea66351;hb=5f74ed3a5e1eea6afa1d28894957dcfae44c79fb;hp=863cb190b666a99cce2f2a71a30db3bf445ccdb2;hpb=e93fb36285f265657d67a1ee7e8a5859aab2b27c;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class.pm b/lib/DBIx/Class.pm
index 863cb19..33e84ce 100644
--- a/lib/DBIx/Class.pm
+++ b/lib/DBIx/Class.pm
@@ -32,7 +32,12 @@ __PACKAGE__->_skip_namespace_frames('^DBIx::Class|^SQL::Abstract|^Try::Tiny|^Cla
 # However it is the right thing to do in order to get
 # various install bases to highlight their brokenness
 # Remove at some unknown point in the future
-sub DESTROY { &DBIx::Class::_Util::detected_reinvoked_destructor }
+#
+# The oddball BEGIN is there for... reason unknown
+# It does make non-segfaulty difference on pre-5.8.5 perls, so shrug
+BEGIN {
+  sub DESTROY { &DBIx::Class::_Util::detected_reinvoked_destructor };
+}
 
 sub mk_classdata {
   shift->mk_classaccessor(@_);