diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-28 14:39:55 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-28 14:39:55 +0000 |
commit | 9459710475e45fb4a97fce8a8bc59383952cc617 (patch) | |
tree | 2fadc64320b04b3c0f5095d1840b9253f53781f9 /lib | |
parent | 3be77bcfa1d7f0b3caddf826d4a66cefd1db6e2b (diff) | |
download | perl-9459710475e45fb4a97fce8a8bc59383952cc617.tar.gz |
Newline confusion: t/TEST sees an extra newline and gets huffy.
p4raw-id: //depot/perl@12741
Diffstat (limited to 'lib')
-rw-r--r-- | lib/ExtUtils/Embed.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/ExtUtils/Embed.t b/lib/ExtUtils/Embed.t index c247eb5d5c..4feb042ef4 100644 --- a/lib/ExtUtils/Embed.t +++ b/lib/ExtUtils/Embed.t @@ -44,8 +44,7 @@ else { } push(@cmd,ldopts()); - -print "#@cmd\n"; +print "# @cmd"; # where is the newline coming from? ldopts()? print "not " if system(join(' ',@cmd)); print "ok 1\n"; @@ -53,9 +52,10 @@ 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"); -#gcc -g -I.. -L../ -o perl_test perl_test.c -lperl `../perl -I../lib -MExtUtils::Embed -I../ -e ccopts -e ldopts` +# gcc -g -I.. -L../ -o perl_test perl_test.c -lperl `../perl -I../lib -MExtUtils::Embed -I../ -e ccopts -e ldopts` __END__ |