Skip to content
Snippets Groups Projects
Commit b3cf0adf authored by Gerhard Gonter's avatar Gerhard Gonter :speech_balloon:
Browse files

flush properties tsv after each line

parent cb3bc9b2
No related branches found
No related tags found
No related merge requests found
package WikiData::Property::Filter;
use FileHandle;
my $TSV_SEP= "\t";
sub new
......@@ -48,6 +50,7 @@ sub setup
local *FO_Prop;
if (open (FO_Prop, '>:utf8', $fnm_prop))
{
autoflush FO_Prop 1;
print FO_Prop join ($TSV_SEP, @$cols), "\n" if (defined ($cols));
print "writing filter [$property] [$label] to [$fnm_prop]\n";
$obj->{'_FO'}= *FO_Prop;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment