]> git.vpit.fr Git - perl/modules/Test-Valgrind.git/blobdiff - lib/Test/Valgrind.pm
Don't call dl_unload_file twice on the same libref
[perl/modules/Test-Valgrind.git] / lib / Test / Valgrind.pm
index e70a912d2d089512750322f9a8d84fb5165daadb..d003528be0d3158d2efc541426d7547aa5d05f87 100644 (file)
@@ -233,7 +233,10 @@ sub import {
 
 END {
  if ($run and eval { require DynaLoader; 1 }) {
-  DynaLoader::dl_unload_file($_) for @DynaLoader::dl_librefs;
+  for (@DynaLoader::dl_librefs) {
+   next unless defined;
+   undef $_ if DynaLoader::dl_unload_file($_);
+  }
  }
 }