From 8fe5b9ff3e6e41dabf838b17a3dafbf2b798ab07 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 10 Nov 2001 01:55:13 +0000
Subject: [PATCH] Newline trouble.

p4raw-id: //depot/perl@12925
---
 lib/ExtUtils/Embed.t | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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";
-- 
2.34.1