[Xen-changelog] [xen staging] docs/parse-support-md: pandoc2html_inline: print failing json

[patchbot@xxxxxxx]

commit e6831df288cae0f9ebe0e4b8a6bfd0cb5350cfcf
Author:     Ian Jackson <ian.jackson@xxxxxxxxxxxxx>
AuthorDate: Mon Dec 3 12:03:48 2018 +0000
Commit:     Ian Jackson <ian.jackson@xxxxxxxxxxxxx>
CommitDate: Mon Dec 10 15:13:07 2018 +0000

    docs/parse-support-md: pandoc2html_inline: print failing json
    
    If our run of pandoc to convert pieces of markup in our hand, into
    html, fails, print the json that was rejected.
    
    No change in non-error cases.
    
    Signed-off-by: Ian Jackson <ian.jackson@xxxxxxxxxxxxx>
    Acked-by: Juergen Gross <jgross@xxxxxxxx>
---
 docs/parse-support-md | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/docs/parse-support-md b/docs/parse-support-md
index e2d0187dd1..a8f216f131 100755
--- a/docs/parse-support-md
+++ b/docs/parse-support-md
@@ -247,10 +247,11 @@ sub pandoc2html_inline ($) {
     my ($content) = @_;
 
     my $json_fh = IO::File::new_tmpfile or die $!;
-    print $json_fh to_json([
-                            { unMeta => { } },
-                            [{ t => 'Para', c => $content }],
-                           ]) or die $!;
+    my $j = to_json([
+                     { unMeta => { } },
+                     [{ t => 'Para', c => $content }],
+                    ]) or die $!;
+    print $json_fh $j;
     flush $json_fh or die $!;
     seek $json_fh,0,0 or die $!;
 
@@ -270,7 +271,7 @@ sub pandoc2html_inline ($) {
             open STDIN, '<&', $json_fh or die $!;
             system 'json_pp';
         };
-        die "\n $? $!";
+        die "$j \n $? $!";
     }
 
     $html =~ s{^\<p\>}{} or die "$html ?";
--
generated by git-patchbot for /home/xen/git/xen.git#staging

_______________________________________________
Xen-changelog mailing list
Xen-changelog@xxxxxxxxxxxxxxxxxxxx
https://lists.xenproject.org/xen-changelog