X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind.pm;h=5921df73a0b206784d93c0b6ed9ce2f21fad892f;hb=refs%2Ftags%2Fv0.08;hp=d003528be0d3158d2efc541426d7547aa5d05f87;hpb=272284fade82d2dc9d15ab1b564a333fb3839b19;p=perl%2Fmodules%2FTest-Valgrind.git

diff --git a/lib/Test/Valgrind.pm b/lib/Test/Valgrind.pm
index d003528..5921df7 100644
--- a/lib/Test/Valgrind.pm
+++ b/lib/Test/Valgrind.pm
@@ -18,11 +18,11 @@ Test::Valgrind - Test Perl code through valgrind.
 
 =head1 VERSION
 
-Version 0.07
+Version 0.08
 
 =cut
 
-our $VERSION = '0.07';
+our $VERSION = '0.08';
 
 =head1 SYNOPSIS
 
@@ -233,10 +233,9 @@ sub import {
 
 END {
  if ($run and eval { require DynaLoader; 1 }) {
-  for (@DynaLoader::dl_librefs) {
-   next unless defined;
-   undef $_ if DynaLoader::dl_unload_file($_);
-  }
+  my @rest;
+  DynaLoader::dl_unload_file($_) and push @rest, $_ for @DynaLoader::dl_librefs;
+  @DynaLoader::dl_librefs = @rest;
  }
 }
 
@@ -286,7 +285,7 @@ H.Merijn Brand, for daring to test this thing.
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2008 Vincent Pit, all rights reserved.
+Copyright 2008-2009 Vincent Pit, all rights reserved.
 
 This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.