diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-28 14:06:58 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-28 14:06:58 +0000 |
| commit | 3be77bcfa1d7f0b3caddf826d4a66cefd1db6e2b (patch) | |
| tree | 8da192bec122ff5699fabe0fe60138b731f678b1 /lib/ExtUtils | |
| parent | daf748aaf0094ba483a724964e6f8aa1fb2648a2 (diff) | |
| download | perl-3be77bcfa1d7f0b3caddf826d4a66cefd1db6e2b.tar.gz | |
Need to be ./executed.
p4raw-id: //depot/perl@12739
Diffstat (limited to 'lib/ExtUtils')
| -rw-r--r-- | lib/ExtUtils/Embed.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/ExtUtils/Embed.t b/lib/ExtUtils/Embed.t index 32cc9a7b44..c247eb5d5c 100644 --- a/lib/ExtUtils/Embed.t +++ b/lib/ExtUtils/Embed.t @@ -48,7 +48,10 @@ push(@cmd,ldopts()); print "#@cmd\n"; print "not " if system(join(' ',@cmd)); print "ok 1\n"; -print "not " if system("embed_test"); + +my $embed_test = File::Spec->catfile(File::Spec->curdir, "embed_test"); + +print "not " if system($embed_test); print "ok 9\n"; unlink($exe,"embed_test.c"); |