From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 28 Oct 2001 14:06:58 +0000 (+0000)
Subject: Need to be ./executed.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3be77bcfa1d7f0b3caddf826d4a66cefd1db6e2b;p=p5sagit%2Fp5-mst-13.2.git

Need to be ./executed.

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

diff --git a/lib/ExtUtils/Embed.t b/lib/ExtUtils/Embed.t
index 32cc9a7..c247eb5 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");