diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-03 19:05:13 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-03 19:05:13 +0000 |
| commit | fa1e5b33d8f2b3b36e42329ea28659ab586aa651 (patch) | |
| tree | e918e3fa5277d90547acec24fe2f723a1a78352d /lib/h2xs.t | |
| parent | b08decb7b84e3a0b745312414baf1f50cbcbcaf4 (diff) | |
| download | perl-fa1e5b33d8f2b3b36e42329ea28659ab586aa651.tar.gz | |
Must search further back.
p4raw-id: //depot/perl@14542
Diffstat (limited to 'lib/h2xs.t')
| -rw-r--r-- | lib/h2xs.t | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lib/h2xs.t b/lib/h2xs.t index b049b48f83..d1ddc0500a 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 |