Fix to Dynaloader.t for missing modules

From: "Jerry D. Hedden" <jdhedden@yahoo.com>
Message-ID: <618512.39885.qm@web30212.mail.mud.yahoo.com>

p4raw-id: //depot/perl@30156

diff --git a/ext/DynaLoader/t/DynaLoader.t b/ext/DynaLoader/t/DynaLoader.t
index 9cdc209..262a8a8 100644 (file)
--- a/ext/DynaLoader/t/DynaLoader.t
+++ b/ext/DynaLoader/t/DynaLoader.t
@@ -103,7 +103,10 @@ $extensions =~ s|/|::|g;
 
 for my $module (sort keys %modules) {
     SKIP: {
-        skip "$module not available", 1 if $extensions !~ /\b$module\b/;
+        if ($extensions !~ /\b$module\b/) {
+            delete($modules{$module});
+            skip "$module not available", 3;
+        }
         eval "use $module";
         is( $@, '', "loading $module" );
     }