From b3cf0adf669f6e37b42be2550e0aa87da801ef12 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Wed, 7 Aug 2019 16:13:06 +0200
Subject: [PATCH] flush properties tsv after each line
---
lib/WikiData/Property/Filter.pm | 3 +++
1 file changed, 3 insertions(+)
diff --git a/lib/WikiData/Property/Filter.pm b/lib/WikiData/Property/Filter.pm
index e2c9272..4ed24fb 100644
--- a/lib/WikiData/Property/Filter.pm
+++ b/lib/WikiData/Property/Filter.pm
@@ -1,6 +1,8 @@
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;
--
GitLab