From: Vincent Pit <vince@profvince.com>
Date: Sun, 8 Feb 2009 23:11:42 +0000 (+0100)
Subject: dl_unload_file() returns false on error, not true
X-Git-Tag: v1.00~2
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTest-Valgrind.git;a=commitdiff_plain;h=fad4c11177b48a2cee604fe643b3e477687c9400

dl_unload_file() returns false on error, not true
---

diff --git a/lib/Test/Valgrind.pm b/lib/Test/Valgrind.pm
index 5921df7..4b1b526 100644
--- 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;
  }
 }