diff options
author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-10-28 11:10:24 +0000 |
---|---|---|
committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-10-28 11:10:24 +0000 |
commit | b1b2427f0e4638dc00cb156274394cb88b9c20d6 (patch) | |
tree | 13ff07c14dff1260b5ba6264a156834e3f288d44 /lib/ExtUtils | |
parent | eb9abde0171364a357328883aeb8c88f4afc230f (diff) | |
download | perl-b1b2427f0e4638dc00cb156274394cb88b9c20d6.tar.gz |
Typo in exe name
p4raw-id: //depot/perlio@12732
Diffstat (limited to 'lib/ExtUtils')
-rw-r--r-- | lib/ExtUtils/Embed.t | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/ExtUtils/Embed.t b/lib/ExtUtils/Embed.t index fb6610247f..32cc9a7b44 100644 --- a/lib/ExtUtils/Embed.t +++ b/lib/ExtUtils/Embed.t @@ -16,7 +16,7 @@ $| = 1; print "1..9\n"; my $cc = $Config{'cc'}; my $cl = ($^O eq 'MSWin32' && $cc eq 'cl'); -my $exe = 'embedtest' . $Config{'exe_ext'}; +my $exe = 'embed_test' . $Config{'exe_ext'}; my $inc = File::Spec->catdir($INC[0],".."); my $lib = File::Spec->catdir($INC[0],".."); my @cmd; @@ -28,12 +28,12 @@ else { } push(@cmd,"-I$inc",ccopts(),'embed_test.c'); if ($^O eq 'MSWin32') { - $inc = File::Spec->catdir($inc,'win32'); + $inc = File::Spec->catdir($inc,'win32'); push(@cmd,"-I$inc"); - $inc = File::Spec->catdir($inc,'include'); + $inc = File::Spec->catdir($inc,'include'); push(@cmd,"-I$inc"); if ($cc eq 'cl') { - push(@cmd,'-link',"-libpath:$lib",$Config{'libperl'},$Config{'libc'}); + push(@cmd,'-link',"-libpath:$lib",$Config{'libperl'},$Config{'libc'}); } else { push(@cmd,"-L$lib",'-lperl',$Config{'libc'}); @@ -44,13 +44,13 @@ else { } push(@cmd,ldopts()); - + print "#@cmd\n"; print "not " if system(join(' ',@cmd)); print "ok 1\n"; print "not " if system("embed_test"); print "ok 9\n"; -unlink("embed_test","embed_test.c"); +unlink($exe,"embed_test.c"); #gcc -g -I.. -L../ -o perl_test perl_test.c -lperl `../perl -I../lib -MExtUtils::Embed -I../ -e ccopts -e ldopts` |