forked from rho_n/hpr_generator
		
	Autoflush STDOUT for non verbose progress indication
This commit is contained in:
		| @@ -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 "."; | ||||
| 	}; | ||||
| } | ||||
|  | ||||
|   | ||||
		Reference in New Issue
	
	Block a user