Make sure PP test re-run works on space containing paths

diff --git a/t/40_no_xs.t b/t/40_no_xs.t
index 1b0ac3b..542441b 100644 (file)
--- a/t/40_no_xs.t
+++ b/t/40_no_xs.t
@@ -15,6 +15,7 @@ BEGIN {
 
 use Config;
 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("t/*.t")) {
+for my $fn (bsd_glob("t/*.t")) {
   next if $fn =~ /${this_file}$/;
 
   local $ENV{DEVEL_HIDE_VERBOSE} = 0;