From 93b6ee167006f78af6e039103055d935ba1822a4 Mon Sep 17 00:00:00 2001 From: Jonathan Blake Date: Sat, 7 Sep 2019 16:04:49 -0700 Subject: [PATCH 1/1] Output UTF-8; handle empty lines --- common/scripts/xmlize.pl | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/common/scripts/xmlize.pl b/common/scripts/xmlize.pl index 349d37d..063bd05 100755 --- a/common/scripts/xmlize.pl +++ b/common/scripts/xmlize.pl @@ -8,6 +8,7 @@ use strict; use warnings; use utf8; use open ':encoding(UTF-8)'; +use open ':std', ':encoding(UTF-8)'; my $FILE_EXTENSION = 'txt'; my $BASE_INDENT = ' '; @@ -121,6 +122,10 @@ print << "(End of XML footer)"; sub xmlize { my( $inline, $infile ) = @_; + if(!defined $inline || $inline eq "") { + return ""; + } + $inline =~ tr/\t/ /; $inline =~ s/[[:space:]]{2,}/ /g; $inline =~ s/[[:space:]]+$//; -- 2.17.1