From: Jarkko Hietaniemi Date: Sat, 10 Nov 2001 01:55:13 +0000 (+0000) Subject: Newline trouble. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8fe5b9ff3e6e41dabf838b17a3dafbf2b798ab07;p=p5sagit%2Fp5-mst-13.2.git Newline trouble. p4raw-id: //depot/perl@12925 --- diff --git a/lib/ExtUtils/Embed.t b/lib/ExtUtils/Embed.t index 3c996b7..8f4380a 100644 --- a/lib/ExtUtils/Embed.t +++ b/lib/ExtUtils/Embed.t @@ -80,7 +80,9 @@ if ($^O eq 'VMS') { } } my $status; -print "# @cmd\n"; # where is the newline coming from? ldopts()? +my $display_cmd = "@cmd"; +chomp($display_cmd); # where is the newline coming from? ldopts()? +print "# $display_cmd\n"; $status = system(join(' ',@cmd)); if ($^O eq 'VMS' && !$status) { print "# @cmd2\n";