From: Peter Rabbitson <ribasushi@cpan.org>
Date: Fri, 7 Dec 2012 08:50:40 +0000 (+0100)
Subject: Make sure PP test re-run works on space containing paths
X-Git-Tag: 0.25~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FClass-C3.git;a=commitdiff_plain;h=2266be0c6eca95f136728063fec3f31424978471

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
--- 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;