use strict;
use warnings;
+# This is here instead of DBIx::Class because of load-order issues
+BEGIN {
+ ## FIXME FIXME FIXME - something is tripping up V::M on 5.8.1, leading
+ # to segfaults. When n::c/B::H::EndOfScope is rewritten in terms of tie()
+ # see if this starts working
+ *DBIx::Class::_ENV_::BROKEN_NAMESPACE_CLEAN = ($] < 5.008005)
+ ? sub () { 1 }
+ : sub () { 0 }
+ ;
+}
+
use Carp ();
use namespace::clean ();
};
# cleanup after ourselves
- namespace::clean->import(-cleanee => $into, qw/carp carp_once carp_unique/);
+ namespace::clean->import(-cleanee => $into, qw/carp carp_once carp_unique/)
+ ## FIXME FIXME FIXME - something is tripping up V::M on 5.8.1, leading
+ # to segfaults. When n::c/B::H::EndOfScope is rewritten in terms of tie()
+ # see if this starts working
+ unless DBIx::Class::_ENV_::BROKEN_NAMESPACE_CLEAN();
}
sub unimport {