In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/71390552257ec020456a2c3cd395e2afd534d031?hp=a5b826d8165a41732eb7d5f4748c454add7de669>
- Log -----------------------------------------------------------------
commit 71390552257ec020456a2c3cd395e2afd534d031
Author: Craig A. Berry <craigbe...@mac.com>
Date: Fri Oct 3 22:25:24 2014 -0500
XSLoader.t fix-up following 8e6aa27cd01.
The skip count was incorrect as there is only one test, not two.
Also, XSLoader uses forward slashes explicitly, so prepending a
path to what it concocts from the package name must be done in
Unix format regardless of platform.
-----------------------------------------------------------------------
Summary of changes:
dist/XSLoader/t/XSLoader.t | 11 +++++------
1 file changed, 5 insertions(+), 6 deletions(-)
diff --git a/dist/XSLoader/t/XSLoader.t b/dist/XSLoader/t/XSLoader.t
index 0f279fa..2ff11fe 100644
--- a/dist/XSLoader/t/XSLoader.t
+++ b/dist/XSLoader/t/XSLoader.t
@@ -102,18 +102,17 @@ SKIP: {
unless $extensions =~ /\bDevel::Peek\b/;
# XSLoader::load() assumes it's being called from a module, so
- # pretend it is, first find when Devel/Peek.pm is
- use File::Spec::Functions;
- my $peek_file = catdir("Devel", "Peek.pm");
+ # pretend it is, first find where Devel/Peek.pm is
+ my $peek_file = "Devel/Peek.pm";
my $module_path;
for my $dir (@INC) {
- if (-f catfile($dir, $peek_file)) {
- $module_path = catfile($dir, "Not", "Devel", "Peek.pm");
+ if (-f "$dir/$peek_file") {
+ $module_path = "$dir/Not/Devel/Peek.pm";
last;
}
}
- skip "Cannot find $peek_file", 2
+ skip "Cannot find $peek_file", 1
unless $module_path;
# [perl #122455]
--
Perl5 Master Repository
