Change 33571: Actually use the computed @path so as to write the awkwardly named test

[Nicholas Clark]

Change 33571 by [EMAIL PROTECTED] on 2008/03/26 11:45:12

        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.

Affected files ...

... //depot/perl/ext/Module/Pluggable/Makefile.PL#4 edit

Differences ...

==== //depot/perl/ext/Module/Pluggable/Makefile.PL#4 (text) ====
Index: perl/ext/Module/Pluggable/Makefile.PL
--- perl/ext/Module/Pluggable/Makefile.PL#3~33552~      2008-03-24 
10:55:29.000000000 -0700
+++ perl/ext/Module/Pluggable/Makefile.PL       2008-03-26 04:45:12.000000000 
-0700
@@ -19,7 +19,7 @@
 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;";
End of Patch.