Bug 21395: Fix creation of PO file

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>

diff --git a/misc/translator/tmpl_process3.pl b/misc/translator/tmpl_process3.pl
index 0f7b3a2..45a9b6e 100755 (executable)
--- a/misc/translator/tmpl_process3.pl
+++ b/misc/translator/tmpl_process3.pl
@@ -379,7 +379,7 @@ if ($action eq 'create')  {
         open(my $infh, '<', $tmpfile2);
         open(my $outfh, '>', $str_file);
         while (<$infh>) {
-        print $outfh;
+        print $outfh $_;
         last if /^\n/s;
         }
         close $infh;