Optimize return in non-debug mode
Benjamin Renard

Benjamin Renard commited on 2012-07-26 10:38:59
Showing 1 changed files, with 3 additions and 0 deletions.

... ...
@@ -33,6 +33,9 @@ my $databits = 8;			# Between 5 and 8. Only 8 is commonly used.
33 33
 my $stopbits = 1;			# Set to 1 or 2. 1 is most common.
34 34
 my $handshake = 'rts';			# Set to 'none', 'rts' or 'xoff'
35 35
 
36
+# Auto-flush
37
+local $| = 1;
38
+
36 39
 # Functions
37 40
 
38 41
 sub debug {
39 42