This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert change 24461, now that change 26757 allows TEST
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 27 Jan 2006 15:26:05 +0000 (15:26 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 27 Jan 2006 15:26:05 +0000 (15:26 +0000)
to accept extra output from module tests

p4raw-id: //depot/perl@26959

cygwin/perlld.in

index 871f108..557d7d1 100644 (file)
@@ -79,7 +79,7 @@ close DEBUGFILE if $DEBUG;
 #---------------------------------------------------------------------------
 sub shellexec {
   my $command = shift;
-  print STDERR $command;
+  print $command;
   print DEBUGFILE $command if $DEBUG;
   system($command) == 0
     or die "perlld: *** system() failed to execute\n$command\n";