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 (file)
--- 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));