projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
5d3df70
)
Fix to Dynaloader.t for missing modules
author
Jerry D. Hedden
<jdhedden@cpan.org>
Wed, 7 Feb 2007 05:18:43 +0000
(21:18 -0800)
committer
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Wed, 7 Feb 2007 13:58:10 +0000
(13:58 +0000)
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
patch
|
blob
|
history
diff --git
a/ext/DynaLoader/t/DynaLoader.t
b/ext/DynaLoader/t/DynaLoader.t
index
9cdc209
..
262a8a8
100644
(file)
--- 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" );
}