This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8_heavy.pl: Turn on $| if debugging
authorKarl Williamson <public@khwilliamson.com>
Sun, 6 Nov 2011 03:52:28 +0000 (21:52 -0600)
committerKarl Williamson <public@khwilliamson.com>
Tue, 8 Nov 2011 15:09:35 +0000 (08:09 -0700)
lib/utf8_heavy.pl

index 365530d..5313902 100644 (file)
@@ -3,6 +3,7 @@ use strict;
 use warnings;
 
 sub DEBUG () { 0 }
+$|=1 if DEBUG;
 
 sub DESTROY {}