return populate_weakregistry ($weak_registry, $obj );
};
- require Try::Tiny;
- for my $func (qw/try catch finally/) {
- my $orig = \&{"Try::Tiny::$func"};
- *{"Try::Tiny::$func"} = sub (&;@) {
+
+ for my $func (qw( dbic_internal_try dbic_internal_catch )) {
+ my $orig = \&{"DBIx::Class::_Util::$func"};
+ *{"DBIx::Class::_Util"} = sub (&;@) {
populate_weakregistry( $weak_registry, $_[0] );
goto $orig;
}
}
+ if ( eval { require Try::Tiny } ) {
+ for my $func (qw( try catch finally )) {
+ my $orig = \&{"Try::Tiny::$func"};
+ *{"Try::Tiny::$func"} = sub (&;@) {
+ populate_weakregistry( $weak_registry, $_[0] );
+ goto $orig;
+ }
+ }
+ }
+
+
# Some modules are known to install singletons on-load
# Load them and empty the registry
delete $weak_registry->{$addr}
unless $cleared->{bheos_pptiehinthashfieldhash}++;
}
+ elsif (
+ $names =~ /^Data::Dumper/m
+ and
+ $weak_registry->{$addr}{stacktrace} =~ /\bDBIx::Class::SQLMaker::Util::lax_serialize\b/
+ ) {
+ # only clear one object of a specific behavior - more would indicate trouble
+ delete $weak_registry->{$addr}
+ unless $cleared->{dd_lax_serializer}++;
+ }
elsif ($names =~ /^DateTime::TimeZone::UTC/m) {
# DT is going through a refactor it seems - let it leak zones for now
delete $weak_registry->{$addr};