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 (file)
--- 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;";