summaryrefslogtreecommitdiff
path: root/ext/DynaLoader
diff options
context:
space:
mode:
authorJerry D. Hedden <jdhedden@cpan.org>2007-02-06 21:18:43 -0800
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-02-07 13:58:10 +0000
commit0aad8255c36187d555361d7ba536faee2da84e34 (patch)
treec113b126ff1e9951fdc627e89aa3be8dfa2ee8df /ext/DynaLoader
parent5d3df70f5debb91e49b4e0e6c1dec152e98e3220 (diff)
downloadperl-0aad8255c36187d555361d7ba536faee2da84e34.tar.gz
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
Diffstat (limited to 'ext/DynaLoader')
-rw-r--r--ext/DynaLoader/t/DynaLoader.t5
1 files changed, 4 insertions, 1 deletions
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" );
}