From 0aad8255c36187d555361d7ba536faee2da84e34 Mon Sep 17 00:00:00 2001
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Date: Tue, 6 Feb 2007 21:18:43 -0800
Subject: 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
---
 ext/DynaLoader/t/DynaLoader.t | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'ext/DynaLoader')

diff --git a/ext/DynaLoader/t/DynaLoader.t b/ext/DynaLoader/t/DynaLoader.t
index 9cdc209907..262a8a8cf5 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" );
     }
-- 
cgit v1.2.1