From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 3 Feb 2002 19:05:13 +0000 (+0000)
Subject: Must search further back.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fa1e5b33d8f2b3b36e42329ea28659ab586aa651;p=p5sagit%2Fp5-mst-13.2.git

Must search further back.

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

diff --git a/lib/h2xs.t b/lib/h2xs.t
index b049b48..d1ddc05 100644
--- a/lib/h2xs.t
+++ b/lib/h2xs.t
@@ -8,6 +8,7 @@
 #
 # We are now checking that the correct use $version; is present in
 # Makefile.PL and $module.pm
+
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
@@ -28,13 +29,16 @@ if (!(-e $extracted_program)) {
 # You might also wish to bail out if your perl platform does not
 # do `$^X -e 'warn "Writing h2xst"' 2>&1`; duplicity.
 
-my $dupe = '2>&1'; # ok on unix, nt, VMS, ...
-my $lib = '"-I../lib"'; # ok on unix, nt, The extra \" are for VMS
+# ok on unix, nt, VMS, ...
+my $dupe = '2>&1';
+# ok on unix, nt, The extra \" are for VMS
+my $lib = '"-I../lib" "-I../../lib"';
 # The >&1 would create a file named &1 on MPW (STDERR && STDOUT are
 # already merged).
 if ($^O eq 'MacOS') {
     $dupe = '';
-    $lib = '-x -I::lib:'; # -x overcomes MPW $Config{startperl} anomaly
+    # -x overcomes MPW $Config{startperl} anomaly
+    $lib = '-x -I::lib: -I:::lib:';
 }
 # $name should differ from system header file names and must
 # not already be found in the t/ subdirectory for perl.
@@ -145,7 +149,7 @@ while (my ($args, $version, $expectation) = splice @tests, 0, 3) {
   # does it run?
   my $prog = "$^X $lib $extracted_program $args $dupe";
   @result = `$prog`;
-  ok ($?, 0, "running $prog");
+  ok ($?, 0, "running $prog ");
   $result = join("",@result);
 
   # accomodate MPW # comment character prependage