From 2f6c23cede836f486ef4def6d28f88f2f88494ce Mon Sep 17 00:00:00 2001 From: Steffen Mueller Date: Wed, 10 Aug 2011 15:49:34 +0200 Subject: [PATCH] Fix trivial test failure from dbef30a62b2ca0b186 For the record: This was my (Steffen's) fault, not Mike's! --- dist/ExtUtils-ParseXS/t/101-standard_typemap_locations.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/dist/ExtUtils-ParseXS/t/101-standard_typemap_locations.t b/dist/ExtUtils-ParseXS/t/101-standard_typemap_locations.t index 3b89706..3de8d9d 100644 --- a/dist/ExtUtils-ParseXS/t/101-standard_typemap_locations.t +++ b/dist/ExtUtils-ParseXS/t/101-standard_typemap_locations.t @@ -22,13 +22,13 @@ use ExtUtils::ParseXS::Utilities qw( # (where the @INC-related entries are) as there are entries from @INC. # We manage to do that by stopping when we find the "updir" related # entries, which we assume is never contained in a default @INC entry. + my $updir = File::Spec->updir; my $max = $#INC; $max = $#stl if $#stl < $max; foreach my $i (0.. $max) { $max = $i, last if $stl[$i] =~ /\Q$updir\E/; } - my $updir = File::Spec->updir; ok( ( 0 < (grep -f $_, @stl[0..$max]) ), "At least one typemap file exists underneath \@INC directories" -- 1.8.3.1