Autoflush STDOUT for non verbose progress indication

This commit is contained in:
Roan Horning 2022-07-31 18:50:34 -04:00
parent 2a61d89907
commit cf554571c8
Signed by untrusted user: rho_n
GPG Key ID: 234AEF20B72D5769

View File

@ -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 ".";
};
}