Fix tests on space-containing paths RT#77528

diff --git a/Changes b/Changes
index d797dfb..27ff8ee 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,4 +1,6 @@
         - Properly skip debugger test when optional deps not available
+        - Make sure pure-perl tests pass correctly on space-containing
+          paths (RT#77528)
 
     [0.23]
         - Rely on B::Hooks::EndOfScope version 0.10 to fix issues with

diff --git a/t/10-pure-perl.t b/t/10-pure-perl.t
index 825a899..edf3f05 100644 (file)
--- a/t/10-pure-perl.t
+++ b/t/10-pure-perl.t
@@ -15,6 +15,7 @@ my $has_d_h = eval { require Devel::Hide };
 use Config;
 use FindBin qw($Bin);
 use IPC::Open2 qw(open2);
+use File::Glob 'bsd_glob';
 
 # for the $^X-es
 $ENV{PERL5LIB} = join ($Config{path_sep}, @INC);
@@ -22,7 +23,7 @@ $ENV{PERL5LIB} = join ($Config{path_sep}, @INC);
 # rerun the tests under the assumption of pure-perl
 my $this_file = quotemeta(__FILE__);
 
-for my $fn (glob("$Bin/*.t")) {
+for my $fn (bsd_glob("$Bin/*.t")) {
   next if $fn =~ /${this_file}$/;
 
   local $ENV{DEVEL_HIDE_VERBOSE} = 0;