Newline trouble.
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 10 Nov 2001 01:55:13 +0000 (01:55 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 10 Nov 2001 01:55:13 +0000 (01:55 +0000)
p4raw-id: //depot/perl@12925

lib/ExtUtils/Embed.t

index 3c996b7dadbdaef57f928e88b7b82caf661ccb0a..8f4380aa6dc1d4f309088c4a7c6a94bf329e7a13 100644 (file)
@@ -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";