Change 30156: [PATCH] Fix to Dynaloader.t for missing modules

[Rafael Garcia-Suarez]

Change 30156 by [EMAIL PROTECTED] on 2007/02/07 13:58:10

        Subject: [PATCH] Fix to Dynaloader.t for missing modules
        From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
        Date: Wed, 7 Feb 2007 05:18:43 -0800 (PST)
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/ext/DynaLoader/t/DynaLoader.t#10 edit

Differences ...

==== //depot/perl/ext/DynaLoader/t/DynaLoader.t#10 (text) ====
Index: perl/ext/DynaLoader/t/DynaLoader.t
--- perl/ext/DynaLoader/t/DynaLoader.t#9~29707~ 2007-01-07 15:08:04.000000000 
-0800
+++ perl/ext/DynaLoader/t/DynaLoader.t  2007-02-07 05:58:10.000000000 -0800
@@ -103,7 +103,10 @@
 
 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" );
     }
End of Patch.