From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 2 Mar 2000 19:26:08 +0000 (+0000)
Subject: avoid buffering issue in warn/8signal
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0da1743ca62caf8fa1145a4f68e1aa6df56ea774;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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.