X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind.pm;h=962264b2928dedcf4b4ddd35426d1633100c84d3;hb=af894e2502bb03d24c5179d85e7f6705e2fcd9df;hp=e70a912d2d089512750322f9a8d84fb5165daadb;hpb=1990c796ff7ec945e5a48d1601b3fd7547c479d3;p=perl%2Fmodules%2FTest-Valgrind.git

diff --git a/lib/Test/Valgrind.pm b/lib/Test/Valgrind.pm
index e70a912..962264b 100644
--- a/lib/Test/Valgrind.pm
+++ b/lib/Test/Valgrind.pm
@@ -233,7 +233,9 @@ sub import {
 
 END {
  if ($run and eval { require DynaLoader; 1 }) {
-  DynaLoader::dl_unload_file($_) for @DynaLoader::dl_librefs;
+  my @rest;
+  DynaLoader::dl_unload_file($_) and push @rest, $_ for @DynaLoader::dl_librefs;
+  @DynaLoader::dl_librefs = @rest;
  }
 }