diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-02 19:26:08 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-02 19:26:08 +0000 |
| commit | 0da1743ca62caf8fa1145a4f68e1aa6df56ea774 (patch) | |
| tree | 39b4ef5028074fbf779ac6cb8f26098acf13e18c | |
| parent | 582747f5105a2bf37c6618a3699ed83902c79a98 (diff) | |
| download | perl-0da1743ca62caf8fa1145a4f68e1aa6df56ea774.tar.gz | |
avoid buffering issue in warn/8signal
p4raw-id: //depot/perl@5444
| -rw-r--r-- | t/pragma/warn/8signal | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/pragma/warn/8signal b/t/pragma/warn/8signal index 0be2d13cc0..d480f1902a 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. |