diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-03-26 11:45:12 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-03-26 11:45:12 +0000 |
| commit | d884a504e3fdf3415ff15ed17304d916589dc339 (patch) | |
| tree | e358ecc5ec258cb8c9942dea48c12aa22b34e275 /ext | |
| parent | 9df8f87f35bbd21fa58b4d70ffdb1ad756f24463 (diff) | |
| download | perl-d884a504e3fdf3415ff15ed17304d916589dc339.tar.gz | |
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
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Module/Pluggable/Makefile.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Module/Pluggable/Makefile.PL b/ext/Module/Pluggable/Makefile.PL index 9fcc2759f9..c926c542a6 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;"; |