avoid buffering issue in warn/8signal

p4raw-id: //depot/perl@5444

diff --git a/t/pragma/warn/8signal b/t/pragma/warn/8signal
index 0be2d13..d480f19 100644 (file)
--- a/t/pragma/warn/8signal
+++ b/t/pragma/warn/8signal
@@ -4,7 +4,7 @@ TODO
 
 __END__
 # 8signal
-BEGIN { $SIG{__WARN__} = sub { print "WARN -- @_" } }
+BEGIN { $| = 1; $SIG{__WARN__} = sub { print "WARN -- @_" } }
 BEGIN { $SIG{__DIE__}  = sub { print "DIE -- @_" } }
 1 if 1 EQ 2 ;
 use warnings qw(deprecated) ;
@@ -13,6 +13,6 @@ use warnings FATAL => qw(deprecated) ;
 1 if 1 EQ 2 ;
 print "The End.\n" ;
 EXPECT
-Use of EQ is deprecated at - line 8.
 WARN -- Use of EQ is deprecated at - line 6.
 DIE -- Use of EQ is deprecated at - line 8.
+Use of EQ is deprecated at - line 8.