From: Peter Rabbitson <ribasushi@cpan.org>
Date: Fri, 23 Nov 2012 17:26:05 +0000 (+0100)
Subject: Fix tests on space-containing paths RT#77528
X-Git-Tag: 0.24~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e6eee479d9163c97fd41f08e8d6d52661aa69bbc;p=p5sagit%2Fnamespace-clean.git

Fix tests on space-containing paths RT#77528
---

diff --git a/Changes b/Changes
index d797dfb..27ff8ee 100644
--- 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
--- 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;