From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 25 Nov 2001 04:59:31 +0000 (+0000)
Subject: Also ExtUtils.t had $^X assumptions.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9e7b74c71ae6d607b88d4011006ff1ddd570857f;p=p5sagit%2Fp5-mst-13.2.git

Also ExtUtils.t had $^X assumptions.

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

diff --git a/lib/ExtUtils.t b/lib/ExtUtils.t
index 24d85d3..59cb978 100644
--- a/lib/ExtUtils.t
+++ b/lib/ExtUtils.t
@@ -14,7 +14,8 @@ use ExtUtils::Constant qw (constant_types C_constant XS_constant autoload);
 use Config;
 use File::Spec::Functions qw(catfile rel2abs);
 # Because were are going to be changing directory before running Makefile.PL
-my $perl;
+my $perl = $^X;
+print "# perl=$perl\n";
 $perl = rel2abs( $^X ) unless $] < 5.006; # Hack. Until 5.00503 has rel2abs
 # ExtUtils::Constant::C_constant uses $^X inside a comment, and we want to
 # compare output to ensure that it is the same. We were probably run as ./perl
@@ -24,6 +25,7 @@ $^X = $perl;
 
 print "# perl=$perl\n";
 my $runperl = "$perl -x \"-I../../lib\"";
+print "# runperl=$runperl\n";
 
 $| = 1;
 
@@ -462,6 +464,10 @@ $test++;
 my $expect = $constant_types . $C_constant .
   "\n#### XS Section:\n" . $XS_constant;
 
+# Depending on whether $^X resolves symbolic links
+# or not we may have ".../perl" or ".../t/perl".
+$regen =~ s/\#!.+perl -w$/#!$perl -w/m;
+
 if ($expect eq $regen) {
   print "ok $test\n";
 } else {