X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass.pm;h=33e84ce28f67bca274a2528e72daa2e0fea66351;hb=4c41a8757c6dd3ff786f27891ad763ebbd54f346;hp=6f0cb12123ae8d7da884c79fd1d13940d80bc752;hpb=8b60b9211a085572446bbfd19e879d00ae03658a;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class.pm b/lib/DBIx/Class.pm index 6f0cb12..33e84ce 100644 --- a/lib/DBIx/Class.pm +++ b/lib/DBIx/Class.pm @@ -11,7 +11,7 @@ our $VERSION; # $VERSION declaration must stay up here, ahead of any other package # declarations, as to not confuse various modules attempting to determine # this ones version, whether that be s.c.o. or Module::Metadata, etc -$VERSION = '0.082899_01'; +$VERSION = '0.082899_15'; $VERSION = eval $VERSION if $VERSION =~ /_/; # numify for warning-free dev releases @@ -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(@_);