Fix trivial test failure from dbef30a62b2ca0b186

[perl5.git] / dist / ExtUtils-ParseXS / t / 101-standard_typemap_locations.t

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 (file)
--- 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.
         # (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 $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"
         ok(
             ( 0 < (grep -f $_, @stl[0..$max]) ),
             "At least one typemap file exists underneath \@INC directories"