From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 11 Feb 2002 14:59:02 +0000 (+0000)
Subject: Forgot from #14641.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b2213df5ec0bd66bcaec8c84cf6c706661bfd470;p=p5sagit%2Fp5-mst-13.2.git

Forgot from #14641.

p4raw-id: //depot/perl@14645
---

diff --git a/lib/ExtUtils/t/Embed.t b/lib/ExtUtils/t/Embed.t
index e3869dc..b7ed459 100644
--- a/lib/ExtUtils/t/Embed.t
+++ b/lib/ExtUtils/t/Embed.t
@@ -113,7 +113,16 @@ my $status;
 my $display_cmd = "@cmd";
 chomp($display_cmd); # where is the newline coming from? ldopts()?
 print "# $display_cmd\n"; 
-$status = system(join(' ',@cmd));
+
+# On OS/2 the linker will always emit an empty line to STDOUT; filter these
+$status = -1;
+{
+  open my $cmdfh, '-|', join(' ',@cmd) or last;
+  print "#$_" while <$cmdfh>;
+  close $cmdfh;
+  $status = $?;
+}
+
 if ($^O eq 'VMS' && !$status) {
   print "# @cmd2\n";
   $status = system(join(' ',@cmd2));