added error handling to avoid error message about uninitialized value in concatenation

diff --git a/pandoc.pm b/pandoc.pm
index 4df0249cdfb25226c9ed6ba0771b47a257802ba1..eff476b4b92efe834508ee597d524975287f9927 100644 (file)
--- a/pandoc.pm
+++ b/pandoc.pm
@@ -244,7 +244,9 @@ sub htmlize ($@) {
         my $compiled_string = '';
         foreach my $word_or_space(@uncompiled_string) {
             if (ref($word_or_space) eq "HASH") {
-                $compiled_string .= $word_or_space->{"Str"};
+                if ($word_or_space->{"Str"}) {
+                    $compiled_string .= $word_or_space->{"Str"};
+                }
             }
             else {
                 $compiled_string .= ' ';