Autoflush STDOUT for non verbose progress indication
This commit is contained in:
parent
2a61d89907
commit
cf554571c8
@ -177,10 +177,11 @@ sub generate_page {
|
||||
sub verbose {
|
||||
my ($verbose, $message) = @_;
|
||||
if ($verbose) {
|
||||
print "$message\n";
|
||||
print STDOUT "$message\n";
|
||||
}
|
||||
else {
|
||||
print ".";
|
||||
STDOUT->autoflush(1);
|
||||
print STDOUT ".";
|
||||
};
|
||||
}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user