From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Wed, 7 Feb 2007 05:18:43 +0000 (-0800)
Subject: Fix to Dynaloader.t for missing modules
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0aad8255c36187d555361d7ba536faee2da84e34;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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" );
     }