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 |