Check that meta values are not empty before applying them.

diff --git a/pandoc.pm b/pandoc.pm
index 0c98b988175eed02f971911d721babd6dfcac9a4..ed95c11b9409a498746eba690c13e60788a82a9d 100644 (file)
--- a/pandoc.pm
+++ b/pandoc.pm
@@ -244,9 +244,19 @@ sub htmlize ($@) {
         return join " ", @string_without_spaces;
     }
 
-    $pagestate{$page}{meta}{title} = compile_string @doc_title;
-    $pagestate{$page}{meta}{author} = compile_string @primary_author;
-    $pagestate{$page}{meta}{date} = compile_string @doc_date;
+    my $title = compile_string @doc_title;
+    my $author = compile_string @primary_author;
+    my $date = compile_string @doc_date;
+
+    if ($title) {
+        $pagestate{$page}{meta}{title} = $title;
+    }
+    if ($author) {
+        $pagestate{$page}{meta}{author} = $author;
+    }
+    if ($date) {
+        $pagestate{$page}{meta}{date} = $date;
+    }
 
     return $content;
 }