From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Mon, 31 Jan 2011 23:28:54 +0000 (+0100)
Subject: Fix PDF metadata extraction when no header block is present
X-Git-Tag: release/2.13.48-1~21
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=b3a8ed98c69b8fd60e854078a8440ddc0a9b1f0b;p=lilypond.git

Fix PDF metadata extraction when no header block is present
---

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 9cae54ffa8..032f0c5de1 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -448,7 +448,8 @@
     ;; don't do BeginDefaults PageMedia: A4
     ;; not necessary and wrong
     (write-preamble paper #t port)
-    (handle-metadata header port)
+    (if (module? header)
+	(handle-metadata header port))
     (for-each
      (lambda (page)
        (set! page-number (1+ page-number))