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 {
|
sub verbose {
|
||||||
my ($verbose, $message) = @_;
|
my ($verbose, $message) = @_;
|
||||||
if ($verbose) {
|
if ($verbose) {
|
||||||
print "$message\n";
|
print STDOUT "$message\n";
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
print ".";
|
STDOUT->autoflush(1);
|
||||||
|
print STDOUT ".";
|
||||||
};
|
};
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user