From 71390552257ec020456a2c3cd395e2afd534d031 Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Fri, 3 Oct 2014 22:25:24 -0500 Subject: 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. --- 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 0f279fa12d..2ff11fe5c3 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] -- cgit v1.2.1