dl_unload_file() returns false on error, not true

[perl/modules/Test-Valgrind.git] / lib / Test / Valgrind.pm

diff --git a/lib/Test/Valgrind.pm b/lib/Test/Valgrind.pm
index 5921df73a0b206784d93c0b6ed9ce2f21fad892f..4b1b5268d6a98d38db9ca98d34113cb36d3bd1de 100644 (file)
--- a/lib/Test/Valgrind.pm
+++ b/lib/Test/Valgrind.pm
@@ -234,7 +234,7 @@ sub import {
 END {
  if ($run and eval { require DynaLoader; 1 }) {
   my @rest;
-  DynaLoader::dl_unload_file($_) and push @rest, $_ for @DynaLoader::dl_librefs;
+  DynaLoader::dl_unload_file($_) or push @rest, $_ for @DynaLoader::dl_librefs;
   @DynaLoader::dl_librefs = @rest;
  }
 }