On Mon, Oct 20, 2008 at 02:25:55PM +0100, Nicholas Clark wrote:
> On Mon, Oct 20, 2008 at 03:06:00PM +0200, H.Merijn Brand wrote:
> > Automated smoke report for 5.11.0 patch 34519
> > i4: PPC_POWER4 (PPC/1 cpu)
> > on AIX - 5.2.0.0/ML04
> > using xlc -q32 version 9.0.0.0
> > smoketime 15 hours 44 minutes (average 1 hour 18 minutes)
>
> > ../lib/Module/Build/t/use_tap_harness.t.....................FAILED
> > 4-5, 8
>
> Right. That's because:
>
> $ ./perl -le 'print "$^X on $^O"'
> /home/nick/p4perl/perl/perl on linux
>
> $ ./perl -le 'print "$^X on $^O"'
> ./perl on freebsd
>
>
> It's assuming that $^X is an absolute path, Somewhere
>
> Not gone digging further yet to work out why, or what the fix is.
Right. Appended patch is needed to fix it. When perl is invoked as ./perl
Linux (at least with /proc mounted) converts $^X to an absolute path, but
it seems that most other platforms don't.
Nicholas Clark
Change 34526 by [EMAIL PROTECTED] on 2008/10/20 14:03:42
As well as @INC, also convert $^X to an absolute path in MBTest.
Affected files ...
... //depot/perl/lib/Module/Build/t/lib/MBTest.pm#7 edit
Differences ...
==== //depot/perl/lib/Module/Build/t/lib/MBTest.pm#7 (text) ====
@@ -16,9 +16,10 @@
unless ($ENV{PERL_CORE}) {
push @INC, $t_lib; # Let user's installed version override
} else {
- # We change directories, so expand @INC to absolute paths
+ # We change directories, so expand @INC and $^X to absolute paths
# Also add .
@INC = (map(File::Spec->rel2abs($_), @INC), ".");
+ $^X = File::Spec->rel2abs($^X);
# we are in 't', go up a level so we don't create t/t/_tmp
chdir '..' or die "Couldn't chdir to ..";
