diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-10 01:55:13 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-10 01:55:13 +0000 |
| commit | 8fe5b9ff3e6e41dabf838b17a3dafbf2b798ab07 (patch) | |
| tree | 0d490795a1c476dc4c544c43158d755e0dfbd848 /lib | |
| parent | e43aec62759b84888e4899e6588939659c8b7301 (diff) | |
| download | perl-8fe5b9ff3e6e41dabf838b17a3dafbf2b798ab07.tar.gz | |
Newline trouble.
p4raw-id: //depot/perl@12925
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/Embed.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/ExtUtils/Embed.t b/lib/ExtUtils/Embed.t index 3c996b7dad..8f4380aa6d 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"; |