From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 26 Mar 2008 11:45:12 +0000 (+0000)
Subject: Actually use the computed @path so as to write the awkwardly named test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d884a504e3fdf3415ff15ed17304d916589dc339;p=p5sagit%2Fp5-mst-13.2.git

Actually use the computed @path so as to write the awkwardly named test
files to the right place when in core. Without this the open fails
(silently as intended) and the tests are skipped on all OS.

p4raw-id: //depot/perl@33571
---

diff --git a/ext/Module/Pluggable/Makefile.PL b/ext/Module/Pluggable/Makefile.PL
index 9fcc275..c926c54 100644
--- a/ext/Module/Pluggable/Makefile.PL
+++ b/ext/Module/Pluggable/Makefile.PL
@@ -19,7 +19,7 @@ my @path = $core ? (File::Spec->updir, File::Spec->updir, File::Spec->updir,
 my @files;
 if ($^O ne 'VMS' && $^O ne 'VOS') {
     foreach my $test (keys %dodgy_files) {
-        my ($file) = (catfile($FindBin::Bin,"t","lib", $test)=~/^(.*)$/);
+        my ($file) = (catfile(@path, "lib", $test)=~/^(.*)$/);
         if (open(my $fh, ">", $file)) {
             my $name = $dodgy_files{$test};
             print $fh "package $name;\nsub new {}\n1;";