Re: selfstubber test fail on bleadperl

Message-Id: <E14tD1S-0001tJ-00@libra.cus.cam.ac.uk>

p4raw-id: //depot/perl@9889

diff --git a/t/lib/selfstubber.t b/t/lib/selfstubber.t
index 212f8ce..d338489 100644 (file)
--- a/t/lib/selfstubber.t
+++ b/t/lib/selfstubber.t
@@ -10,7 +10,9 @@ use Devel::SelfStubber;
 
 my $runperl = "$^X \"-I../lib\"";
 
-$| = 1;
+# ensure correct output ordering for system() calls
+
+select STDERR; $| = 1; select STDOUT; $| = 1;
 
 print "1..12\n";