X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F10-pure-perl.t;fp=t%2F10-pure-perl.t;h=54dec9f5fdd331f81f16198670ba0863169a9048;hb=03073cbe7cf94068a5ee4cebec2472d7cb137169;hp=2426afb95c482f782df8c50971c774e8a759c883;hpb=726710b68a0754b5d5a7c9c5a054ace00bbdb22c;p=p5sagit%2Fnamespace-clean.git

diff --git a/t/10-pure-perl.t b/t/10-pure-perl.t
index 2426afb..54dec9f 100644
--- a/t/10-pure-perl.t
+++ b/t/10-pure-perl.t
@@ -41,6 +41,7 @@ ok(
 use Config;
 use IPC::Open2 qw(open2);
 use File::Glob 'bsd_glob';
+use Cwd 'abs_path';
 
 # for the $^X-es
 $ENV{PERL5LIB} = join ($Config{path_sep}, @INC);
@@ -48,10 +49,11 @@ $ENV{PATH} = '';
 
 
 # rerun the tests under the assumption of pure-perl
-my $this_file = quotemeta(__FILE__);
+my $this_file = abs_path(__FILE__);
 
 for my $fn ( bsd_glob("t/*.t") ) {
-  next if $fn =~ /${this_file}$/;
+
+  next if abs_path($fn) eq $this_file;
 
   my @cmd = map { $_ =~ /(.+)/ } ($^X, $fn);