This solves the leaks due to DynaLoader.
+END {
+ if ($run and eval { require DynaLoader; 1 }) {
+ DynaLoader::dl_unload_file($_) for @DynaLoader::dl_librefs;
+ }
+}
+
=head1 CAVEATS
You can't use this module to test code given by the C<-e> command-line switch.
=head1 CAVEATS
You can't use this module to test code given by the C<-e> command-line switch.
$dbg = $@ ? 0 : $ret;
}
}
$dbg = $@ ? 0 : $ret;
}
}
- if ($desc =~ /still\s+reachable/) {
+ if ($desc =~ /definitely\s+lost/) {
$passed = $a >= 9900 && $a < 10100;
if ($dbg) {
ok($passed, $desc);
$passed = $a >= 9900 && $a < 10100;
if ($dbg) {
ok($passed, $desc);