diff options
author | Jerry D. Hedden <jdhedden@cpan.org> | 2007-02-06 21:18:43 -0800 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-02-07 13:58:10 +0000 |
commit | 0aad8255c36187d555361d7ba536faee2da84e34 (patch) | |
tree | c113b126ff1e9951fdc627e89aa3be8dfa2ee8df /ext/DynaLoader | |
parent | 5d3df70f5debb91e49b4e0e6c1dec152e98e3220 (diff) | |
download | perl-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.t | 5 |
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" ); } |